Question

VB中怎样按command使另一个command加图？

RT，我写了这个代码但是不行：
Private Sub Command1_Click()
Command2.Picture = "data \ image \ 343.bmp"End Sub去了引号也不行，请问怎么办？
打错了，end sub是下一行

Answer 1

Private Sub Command1_Click()
Command2.Picture = LoadPicture(App.Path & "\data\image\343.bmp")
End Sub

要注意，文件路径中\的两边是不能加空格的，因为空格也是路径名中的有效字符，VB会在硬盘中查找同样带空格的文件夹（比如"data "，后面是有个空格的），这样当然就找不到啦。
另外Command2的Style属性要设为1才能设置自定义图片。

追问

Private Sub Command1_Click()Dim x as single
If x = 343 ThenCommand2.Picture = App.Path & "\data\image\343.bmp"End IfEnd Sub
这个有错吗？他说我类型不匹配，选中了&

追答

Private Sub Command1_Click()
Dim x as single
If x = 343 Then
    Command2.Picture = LoadPicture(App.Path & "\data\image\343.bmp")
End If
End Sub

你这个x在这里是没什么作用的，它为什么会无缘无故地等于343呢？

追问

有些语句我没打出来，中间我用了个open，刚刚我忘记加LoadPicture了，现在行了，请问App.Path &是什么意思？

追答

App.Path是当前路径，就是当前程序所在的文件夹

Answer 2

函数用错了吧，我记得好象等号右边用LoadPicture 函数，不能直接写路径的。另外，Command2按钮的Style要设置为1。代码如下：

Private Sub Command1_Click()Command2.Picture = LoadPicture("e:\1.bmp")End Sub