Private Sub Command1_Click()
Image1.Picture = LoadPicture(Text1.Text)
End SubPrivate Sub Command2_Click()
Dim exi As String
exi = MsgBox("你真的想退出吗?", vbtesno + vbQuestion + vbDefaultButton1, "退出")
If exi = vbYes Then
End
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1
End Sub
Private Sub File1_DblClick()
Image1.Picture = LoadPicture(File1.Path + "\" + File1)
End Sub
Private Sub Form_Load()
Command1.Enabled = False
File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur"
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
End Sub
运行显示实时错误424
Image1.Picture = LoadPicture(Text1.Text)
End SubPrivate Sub Command2_Click()
Dim exi As String
exi = MsgBox("你真的想退出吗?", vbtesno + vbQuestion + vbDefaultButton1, "退出")
If exi = vbYes Then
End
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1
End Sub
Private Sub File1_DblClick()
Image1.Picture = LoadPicture(File1.Path + "\" + File1)
End Sub
Private Sub Form_Load()
Command1.Enabled = False
File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur"
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
End Sub
运行显示实时错误424
解决方案 »
- [原创]VB6初步实现在WINXP下类似WIN7显示桌面的功能
- 求助VB的3阶矩阵乘法~~
- 串口通讯延时的问题
- 跪求!!!!!!!!!!!!嵌入ole中的word文档的保存问题
- 请问ms script control的函数在winxp下为何比win98、win2000、win2003下运行慢的多?
- 高分相送,帮我解决个MSFLEXGRID的问题?????
- 用了这么久的vb,刚发现原来还有这样一条语句。
- 请问如何得到一个Excel文件中的所有的Sheet的名字
- 请问哪里有crystl32.ocx控件下载!
- 有没有比较好的VB专业网站
- 新手如何能学好vb
- 紧急求助:摄像头拍照时的抓图功能发生的问题
Dim exi As Long
还有,楼主是像玩猜谜游戏么?你到底出什么问题了?
什么地方改成LONG?你自己有调试过?
这里出现问题Private Sub Form_Load()
Command1.Enabled = False
File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur"
End Sub