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

文档介绍：19

| 悬赏分： 20 | 浏览次数： 1688 次
1, x1), 1, x1)
2, x2), 1, x1)
2

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 里面的内容去选定后才能 进行操作
如何让他自己选定为 text1 的内容- - ！
3

三、利用 VB 三维面板控件设计流动条
流动条的面积改变,设为一整型值,取值范围是
FloodType ：表示用户对三维面板控件的使用方式。可取值有
0 缺省设置
4

If N％$#***@62;100 THEN
Exit Sub
使用 VB 设计具有动感的命令图标栏
5

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）
令图标凸出
End sub
＝Loadpicture （＂ ＂） ’命
以上只能使命令图标具备凹下去的效用, 但当在按鼠标按钮不放, 并拖曳鼠
标使光标移到外头, 原来图标仍然处于凹下状态。 要使其自动凸起, 就要编写如
下代码：
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
通过以上三步骤就可以建立具有 “动感”的命令图标,若具有多个命令图标
时,可通过创建图像控制数组来实现。 BMP 是常见的一种图像格式,也可以使
用 VB 提供的丰富的不同状态的命令图标位图文件, 它在 VB 的子目录＼ bitmaps
＼中。
五、
6

实现窗体内部的左右移动
'分割区的宽度
Private Const SPL99vTERWIDTH = 45
'最小移动宽度
Private Const HMIN = 15
'picLeft 和 picRight 的宽度相对于窗体的比例
Pri