UC知道计算机二级vb的一个小问题
来源：百度知道 编辑：UC知道 时间：2024/06/18 18:22:04
刚才碰到一道题题目是这样的
在名为Form1的窗体上绘制两个图片框，名称分别为Pic1和Pic2，宽度和高度均为1500，通过属性窗口把图片文件tp1.jpg放入Pic1中，把图片文件tp2.jpg放入Pic2中；再绘制一个名为Cmd1的命令按钮，标题为"图片交换"，如图1-4所示。编写适当的事件过程，使得在运行时，如果单击命令按钮，则交换两个图片框中的图片。
编写事件过程的答案是这样的
Private Sub Cmd1_Click()
Pic1.Picture = LoadPicture(App.Path + "/tp2.jpg")
Pic2.Picture = LoadPicture(App.Path + "/tp1.jpg")
End Sub
请问，必须挨个把字母，符号写出来吗？要是写出来，这些标点空格的位置我可是要记混的，有没有简单点的法？
在名为Form1的窗体上绘制两个图片框，名称分别为Pic1和Pic2，宽度和高度均为1500，通过属性窗口把图片文件tp1.jpg放入Pic1中，把图片文件tp2.jpg放入Pic2中；再绘制一个名为Cmd1的命令按钮，标题为"图片交换"，如图1-4所示。编写适当的事件过程，使得在运行时，如果单击命令按钮，则交换两个图片框中的图片。
编写事件过程的答案是这样的
Private Sub Cmd1_Click()
Pic1.Picture = LoadPicture(App.Path + "/tp2.jpg")
Pic2.Picture = LoadPicture(App.Path + "/tp1.jpg")
End Sub
请问，必须挨个把字母，符号写出来吗？要是写出来，这些标点空格的位置我可是要记混的，有没有简单点的法？
VB里有很多自动功能,
比如
Private Sub Cmd1_Click()
...
End Sub
这些代码不需要记,你双击控件后会自动出现
再比如
你输入app.后面会动出现path,此时你只需按空格即可.
我相信你会很快学会的,你一定行的!
Dim a
Private Sub Form_Load()
a = 1
End Sub
Private Sub Cmd1_Click()
If a = 1 Then
Pic1.Picture = LoadPicture(App.Path + "/tp2.jpg")
Pic2.Picture = LoadPicture(App.Path + "/tp1.jpg")
a = 2
Else
Pic1.Picture = LoadPicture(App.Path + "/tp1.jpg")
Pic2.Picture = LoadPicture(App.Path + "/tp2.jpg")
a = 1
End If
End Sub
不是完全需要的。例如你给出的代码,其中第一行和最后一行只要双击按钮控件就会自动添加。你只需输入中间的几行代码即可。 还有,例如你在代码里输入pic1之后加上一个点,后面就自动列出一个表,很方便。总之,VB里需要记住的东西不多,细心一点就可以做得很好了。自己尝试一下吧
http://zhidao.baidu.com/question/98886731.html
运算符前后的空格可以不写，VB会自动给你补上。