æ以ä¸æ¥éª¤å®ç°å¨ææ·»å å½ä»¤æé®
ï¼1ï¼æ°å»ºä¸ä¸ªVB6å·¥ç¨
ï¼2ï¼Form1çªä½ä»£ç
Option Explicit
'å®ä¹è¦å¨ææ·»å çå½ä»¤æé®åéï¼å¸¦äºä»¶å¤çï¼
Dim WithEvents cmdX As CommandButton
'ç¹å»å¨ææ·»å çæé®ï¼å¼¹åºå¯¹è¯æ¡
Private Sub cmdX_Click()
MsgBox "å¨ææ·»å çå½ä»¤æé®ï¼ï¼ï¼"
End Sub
'é¼ æ åå»çªä½ï¼å¨ææ·»å ä¸ä¸ªå½ä»¤æé®
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "ç¹å»æå"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub
ï¼1ï¼æ°å»ºä¸ä¸ªVB6å·¥ç¨
ï¼2ï¼Form1çªä½ä»£ç
Option Explicit
'å®ä¹è¦å¨ææ·»å çå½ä»¤æé®åéï¼å¸¦äºä»¶å¤çï¼
Dim WithEvents cmdX As CommandButton
'ç¹å»å¨ææ·»å çæé®ï¼å¼¹åºå¯¹è¯æ¡
Private Sub cmdX_Click()
MsgBox "å¨ææ·»å çå½ä»¤æé®ï¼ï¼ï¼"
End Sub
'é¼ æ åå»çªä½ï¼å¨ææ·»å ä¸ä¸ªå½ä»¤æé®
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "ç¹å»æå"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2016-03-23
cmdsep是什么东东？cmdsep是什么东东？cmdsep是什么东东？cmdsep是什么东东？
用VB编写"分割英文单词"的程序 执行不了怎么办?
Private Sub cmdSep_Click()T = txtDoc.Text T = Trim(T) + "" '后面的""根本没用 n = 1 Do While n > 0 And T <> ""n = InStr(T, "") '文本里怎会有""(T <> "" )'应该是" "(a space)吧,这句应该放后面 W = Left(T, n - 1) '新的n值没有判断 '随时可能产...
相似回答
