小路学VB的个人资料 - RAT

小路学VB 小路学VB

关注数: 9 粉丝数: 2 发帖数: 82 关注贴吧数: 0

设置快捷键问题，请赐教！ Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Timer2_Timer() If GetAsyncKeyState(vbKeyF11) Then '如果按下F11时 Call Command1_Click '激活按启动按钮 End If End Sub 组合快捷键怎么写比如按下ALT+1 请求赐教

有谁最近去世园会没，现在那里好玩不最近应该开园了吧，现在世园会里跟以前有啥不一样的。好玩不

新手求助：想做一个提取文章内特定内容的，求源代码！比如：在TEXT1里写入：张三一（男）李四（男）王五二（女）赵六（男）钱七（女）…… 上面都是不规则的排列，要求点击按钮1，在TEXT2 里提取出所有女生：王五二（女）钱七（女）想法：名字最长三个字，外加姓别。每个都以空格隔开的。所以可以以空格起头并且满足后三个字符是（女）总长度不超过10个字符求源代码

求控制QQ窗体的例子恩，我想学习下控制QQ窗体，自己写个软件。但是怎么控制窗体按钮等。比如说QQ加好友软件。有例子的大神给我看看源代码

为什么读的INI配置文件。到TEXT1以后。文本没有分行。比如我配置方件内容如下： 1 2 3 然后读到TEXT1里的是：123 代码如下： Private Sub Form_Load() Text1.Text = "" Open App.Path & "\配置文件.ini" For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1 = Text1 + inputdata Loop End Sub 如何更改呢？ Close #1 Text1 = Trim(Text1)

VB配置文件问题能不能用一个配置文件保存几个TEXT框的信息，或者其它选择项。求代码？思路。

为何关闭不了进程？我用代码想关闭QQ.exe TEXT1填写QQ.exe 用按钮实现 Shell "ntsd -c q -pn"& text1 但是会出现DOS界面，没有关掉。是怎么回事？

新手网页控件求助？做了一个自动填表程序。添加了一个WebBrowser控件。我只会获取填写框和按钮。对于Option点选不会弄。就像同意服务条款前要打个钩。或者姓别男女选择。现在我想在软件上添加一个Option1控件。然后让网页的值和他对应。-

怎么获取EXCEL数据给程序比如表的第一行第一列（1，1）的值为TEXT1 （1，2）值为TEXT2 。。。。（1，N）为TEXTN

EXCEL数据获取，再导入注册页面。如何实现我想给单位200多人注册会员，现在有人员的EXCEL文档。现在要实现，把数据提取出来放到网页注册页面。因为我学的比较浅，所以思路是：每一行的数据，按TAB切换，复制第一个数据存入TEXT1 ；TAB 复制第二个数据存入 TEXT2 。。。。第N个数据存入TEXTN 这个怎么实现？

如何控制鼠标点击本窗体某一位置如（10，10） RT

求助！！！！！我增加了一个WebBrowser2使得WebBrowser1可以跳转页面而不弹出新窗口。现在如何获得当前打开WebBrowser1页面的网址赋值给Text1.text

新手求助，网页控件问题 Private Sub Command3_Click() WebBrowser1.Document.getElementsByTagName("INPUT")("title").Value =Text1.text WebBrowser1.Document.getElementById("bdeTextArea").innerText = Text3.Text End Sub 想改成如果找到这两个，刚执行 WebBrowser1.Document.getElementsByTagName("INPUT")("title").Value =Text1.text WebBrowser1.Document.getElementById("bdeTextArea").innerText = Text3.Text 怎么写？

【67】Text2 Text3

我爱学习我爱学习，嘿嘿！

新手求助： Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 2000 End Sub Private Sub form_load() Timer1.Enabled = False End Sub Private Sub timer1_timer() SendKeys Text1.Text End Sub 代码很简单，主要是设置的启动按钮1以后。每隔2秒。会发送TEXT1。现在要实现：设置发送次数。增加TEXT2，发数次数等于TEXT2的值。怎么写代码？

1 下一页