谁教我这两道VB入门程序设计题目...

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:13:51
1.窗体上有两个标签,将一个标签拖到另一个标签上时,能够交换两个标签内的文字..

2.窗体中有两个按钮,一个为图象按钮,单击另一个按钮时可以显示/隐藏该按钮上的图像...

事件顺便也附带上哦,谢谢各位了...

第一题：
dim a

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.DragMode = 0
Label1.Drag 1

End Sub

Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
a = Label1
Label1 = Label2
Label2 = a
Label2.Drag 2
End Sub

第二题：

设置command2的style属性为1

Dim s As Boolean

Private Sub Command1_Click()
If s = False Then
Command2.Picture = LoadPicture("D:\mypro\khgl\pic\HANDSHAK.ICO")
s = True
Else
Command2.Picture = LoadPicture("")
s = False
End If
End Sub

其中D:\mypro\khgl\pic\HANDSHAK.ICO为你的图标路径

鼠标拖放事件 dragdrop
2 按钮 Visible 是隐藏属性..
今天有事..明天在给你详细的...

请见谅...