vb程序设计实例[共19页].pdf

文档介绍：| 悬赏分： 20 | 浏览次数： 1688 次
1, x1), 1, x1)
2, x2), 1, x1)
AutoRedraw = True
End Sub
如下
Dim str As String
Private Sub Command1_Click()
str =
= ""
= True
End Sub
Private Sub Command2_Click()
str =
= True
End Sub
Private Sub Command3_Click()
= str
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()


End Sub
Private Sub Form_Load()
= True
= True
= False
= True
End Sub
如何让 Command1~功4 能键的目标转向 text1 内的内容
我点的时候必须 把 text1 里面的内容去选定后才能 进行操作 2
如何让他自己选定为 text1 的内容- - ！
三、利用 VB 三维面板控件设计流动条
流动条的面积改变,设为一整型值,取值范围是
FloodType ：表示用户对三维面板控件的使用方式。可取值有
0 缺省设置
3
If N％ $#***@62;100 THEN
Exit Sub
使用 VB 设计具有动感的命令图标栏
4
Sub form －load（）
＝Loadpicture （＂ ＂） ’命令图标凸出
End sub
鼠标按下时：
Sub Imagel －mousedown （Button As Integer Shift As Integer , X As single ,
Y As single ）
＝Loadpicture （＂ ＂） ’命令图标如下：
End sub
鼠标松开时：
Sub Imagel －mouseup（Button As Integer ,Shift As Integer ,X As single ,Y As
single） ＝Loadpicture （＂ ＂） ’命
令图标凸出
End sub
以上只能使命令图标具备凹下去的效用, 但当在按鼠标按钮不放, 并拖曳鼠
标使光标移到外头, 原来图标仍然处于凹下状态。 要使其自动凸起, 就要编写如
下代码：
Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As
single)
Select Case Button
Case 1
If X$#***@60;=0 or X$#***@62; or Y$#***@60;=0 or
Y$#***@62; then
=Loadpicture("") 凸出 ’
else
=Lo icture("") 凹入’
End if
End select
End sub
通过以上三步骤就可以建立具有 “动感”的命