Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Ekim 2004 Pazar

TextBox SendKeys


'UserForm1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]TextBox SendKeys..."
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
If Not (IsNumeric(TextBox1)) Then SendKeys "{bs}"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
If Right(TextBox2, 1) Like "[0-9]" Then SendKeys "{bs}"
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul