vb清除编程
Ⅰ 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