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