求助！！vb程序
设计一个鼠标画图程序，界面设计，窗体中添加一个picturebox控件，一个combobox组合下拉框、一个通用对话框与两个命令框，以下是我的程序，但是我运行的时候总是提示变量未定义，还望各位大侠帮忙指正哪里出了问题
Option Explicit
Dim x0 As Integer, y0 As Integer
Private Sub Combo1_Click()
Picture1.DrawWidth = Val(Combol.Text)
End Sub
Private Sub Command2_Click()
CommomDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Command3_Click()
Picture1.Cls
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If buttom = 1 Then
Picture1.Line (x0, y0)-(X, Y)
End If
x0 = X
y0 = Y
End Sub
使用F8
我不知道是程序错了还是应该对属性值进行改正？
单步调试，看那句出错
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub
这个中的Combol.AddItem Str(i + 1), i说是未定义？？？？不知道怎么改
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
我用VB调用Word 嵌入VB窗体中(这些都是正常)
然后在桌面打开另一个word a.doc
现在问题出来了.....我关闭VB窗体,之前的那个word也正常关闭了
接下来闭关a.doc 会出现问题
我调用的w ......
各位，请问钩子是怎么运行的啊？请先看看我写的代码：
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
以下� ......
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
VB中callbacke function 如下：
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length an ......
