当前位置:首页 » 编程软件 » vb清除编程

vb清除编程

发布时间: 2024-07-14 19:06:32

Ⅰ VB缂栫▼涓,链夊瓧镄勬椂鍊欐竻闄,娌″瓧镄勬椂鍊欐庢牱鎶婃寜阍鍙樻秷澶憋纻

VB缂栫▼涓,涓轰简鍦ㄦ湁瀛楃殑镞跺欐竻闄,娌″瓧镄勬椂鍊欐庢牱鎶婃寜阍鍙樻秷澶憋纴鍙浠ラ氲繃妫娴嬫ゆ带浠剁殑灞炴э纴鑻ヤ负绌轰覆镞讹纴灏变护瀹幂殑Visible灞炴у彉涓篎alse

Ⅱ VB大小写转化及清除编程编程

Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Text2 = LCase(Text1)
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
End Sub

Private Sub Form_Load()
Command1.Caption = "大写"
Command2.Caption = "小写"
Command3.Caption = "清除"
End Sub

Ⅲ 杩欎釜VB绋嫔簭甯鎴戞寚镣逛竴涓嬭ユ庝箞缂栫▼锛屾竻闄ゅ氨鏄娓呯┖锛岀Щ铡诲氨鏄鍒犻櫎锛岀粨𨱒熷氨鏄鍏抽棴绐楀彛銆

form涓婃坊锷爈ist1锛宭ist2锛屽洓涓鎸夐挳锛屽悕绉板瑰簲镙囬桡纴浠g爜濡备笅

Private Sub Form_Load()

Me.ScaleMode = 3
' 娣诲姞婕旂ず凿滃崟100涓锛岃彍璋辫嚜宸辨坊锷狅纴杩欓噷鍙鏄婕旂ず
For i = 1 To 100
List1.AddItem "凿滃悕" & i
Next i

List1.Columns = 3 '璁剧疆凿滆氨鍙浠ユ樉绀轰笁鍒
List1.Height = 100 '璁惧畾楂桦害
End Sub

Private Sub List1_DblClick() '鍙屽嚮凿滆氨椤硅嚜锷ㄦ坊锷
List2.AddItem List1.Text
List2.SetFocus
List2.ListIndex = List2.ListCount - 1
End Sub

Private Sub 娣诲姞_Click()
List2.AddItem List1.Text
End Sub

Private Sub 绉诲幓_Click()
List2.RemoveItem List2.ListIndex
List2.SetFocus
End Sub

Private Sub 娓呴櫎_Click()
List2.Clear
End Sub

Private Sub 缁撴潫_Click()
Me.Hide '鎴杣nload ME
End Sub

热点内容
pythongdal安装 发布:2024-11-07 11:07:29 浏览:288
怎么用电脑开手机服务器 发布:2024-11-07 10:30:50 浏览:501
代挂网源码最新版 发布:2024-11-07 10:28:30 浏览:820
atoilinux 发布:2024-11-07 10:19:06 浏览:462
速腾哪个配置性能好 发布:2024-11-07 09:55:08 浏览:622
压缩空气的价格 发布:2024-11-07 09:51:25 浏览:541
达内培训班java 发布:2024-11-07 09:51:19 浏览:315
c语言快速排序函数 发布:2024-11-07 09:41:16 浏览:210
mobisage文件夹 发布:2024-11-07 09:29:16 浏览:877
车载安卓机怎么清理垃圾 发布:2024-11-07 09:12:51 浏览:451