获取外部程序的多个textbox控件的text文本..
获取外部程序的多个textbox控件的text文本，这里我只找到一个，假若有三个...怎么写，新手求指导，详细点..我用vb6.0。PrivateSubCommand1_...
获取外部程序的多个textbox控件的text文本，这里我只找到一个，假若有三个...怎么写，新手求指导，详细点..
我用vb6.0。
Private Sub Command1_Click()
Dim h1 As Long
Dim h2 As Long
Dim Txt(6400) As Byte
h1 = FindWindow("ThunderRT6FormDC", "Form1")
h2 = FindWindowEx(h1, 0&, "ThunderRT6TextBox", vbNullString)
SendMessage h2, &HD, 6400, Txt(0)
Text1.Text = StrConv(Txt, vbUnicode)
'Text2.Text =
'Text3.Text =
End Sub 展开
我用vb6.0。
Private Sub Command1_Click()
Dim h1 As Long
Dim h2 As Long
Dim Txt(6400) As Byte
h1 = FindWindow("ThunderRT6FormDC", "Form1")
h2 = FindWindowEx(h1, 0&, "ThunderRT6TextBox", vbNullString)
SendMessage h2, &HD, 6400, Txt(0)
Text1.Text = StrConv(Txt, vbUnicode)
'Text2.Text =
'Text3.Text =
End Sub 展开
2个回答
展开全部
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'鼠标动作响应
Dim mo As Single
mo = X / Screen.TwipsPerPixelX
If mo = WM_RBUTTONUP Then
MsgBox "右键" '可以在这里改成PupUp 弹出右键菜单
ElseIf mo = WM_LBUTTONDBLCLK Then
Me.Visible = True '可以自己更改动作
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出时删除图标
Shell_NotifyIcon NIM_DELETE, TrayI
End Sub
'鼠标动作响应
Dim mo As Single
mo = X / Screen.TwipsPerPixelX
If mo = WM_RBUTTONUP Then
MsgBox "右键" '可以在这里改成PupUp 弹出右键菜单
ElseIf mo = WM_LBUTTONDBLCLK Then
Me.Visible = True '可以自己更改动作
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出时删除图标
Shell_NotifyIcon NIM_DELETE, TrayI
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
网上找呀
<body>
当前时间是：<div id="hhh"></div>
<SCRIPT>
function Year_Month(){
var now = new Date();
var yy = now.getYear();
var mm = now.getMonth()+1;
var dd = now.getDate();
return( yy + '年' + mm + '月' + dd + '日');
}
<body>
当前时间是：<div id="hhh"></div>
<SCRIPT>
function Year_Month(){
var now = new Date();
var yy = now.getYear();
var mm = now.getMonth()+1;
var dd = now.getDate();
return( yy + '年' + mm + '月' + dd + '日');
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
