Textbox'u pasif etmek

[canbolat]

Yaptığım bir çalışmada kullanmak istediğim bir özellik var. Arama yaptırdım ama bulamadım.Checkbox işaretlendiği zaman textbox'u pasif edecek kodu yazabilir misiniz? Yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Yaptığım bir çalışmada kullanmak istediğim bir özellik var. Arama yaptırdım ama bulamadım.Checkbox işaretlendiği zaman textbox'u pasif edecek kodu yazabilir misiniz? Yardımlarınız için çok teşekkür ederim.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    TextBox1.Enabled = False
    Else
    TextBox1.Enabled = True
End If
End Sub

 

[Seyit Tiken]

Alternatif :

Private Sub CheckBox1_Click()
TextBox1.Enabled = TextBox1.Enabled = 0
End Sub

 

[canbolat]

Evren Bey çok teşekkür ederim.Bu konularda yeniyim ama bu sitenin bana çok faydası oldu.İnşallah bizler de sizler gibi uzman oluruz.

 

[canbolat]

Peki üstadlar textbox pasif olduğunda rengi de gri olabilir mi?

 

[canbolat]

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox6.BackColor = vbgray
TextBox7.BackColor = vbgray
Else
TextBox6.Enabled = True
TextBox6.Enabled = True
TextBox6.BackColor = vbWhite
TextBox7.BackColor = vbWhite
End If
End Sub
şeklinde yaptım oldu.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub CheckBox1_Click()
TextBox1.Enabled = TextBox1.Enabled = 0
If CheckBox1 Then
TextBox1.BackColor = &H80000004
Else
TextBox1.BackColor = &H80000005
End If
End Sub

 

[canbolat]

Çok soru sormuş gibi olmayayım ama son bir soru olarak textbox'a girilen 04042008 sayının enter veya taba basınca 04.04.2008 olarak gözükmesini nasıl sağlarım acaba?

 

[canbolat]

Seyit bey size de teşekkürler

 

[Zeki Gürsoy]

Kodu biraz daha kısaltmak istersek,

Private Sub CheckBox1_Click()
TextBox1.Enabled = Not CheckBox1.Value
TextBox1.BackColor = IIf(CheckBox1, &H80000004, &H80000005)
End Sub

 

[Orion1]

Çok soru sormuş gibi olmayayım ama son bir soru olarak textbox'a girilen 04042008 sayının enter veya taba basınca 04.04.2008 olarak gözükmesini nasıl sağlarım acaba?

Aşağıdaki kodları userform'a yapıştırınız.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim deg As String
If KeyCode = 13 Or KeyCode = 9 Then
    If Len(TextBox1.Value) = 8 Then
        deg = Left(TextBox1.Value, 2) & "."
        deg = deg & Mid(TextBox1.Value, 3, 2) & "."
        deg = deg & Right(TextBox1.Value, 4)
        TextBox1.Value = deg
    End If
End If
End Sub

 

[Seyit Tiken]

Private Sub TextBox1_AfterUpdate()
Me.TextBox1 = Format(Me.TextBox1, "00\.00\.0000")
End Sub

 

[canbolat]

Runtime error '424';
object reguired
hatası verdi yeni eklediğim kodları sildim ama gitmiyor

 

[Orion1]

Runtime error '424';
object reguired
hatası verdi yeni eklediğim kodları sildim ama gitmiyor

Benim kodlarım textbox1 için yazılmıştır,siz hangi textbox için uyguluyacaksanız textbox1 yazan yerlere kendi textbox'ın ismini yazınız.

 

[canbolat]

ComboBox09 yazdığım için veriyormuş aslında ComboBox9 yazılacakmış

 

[nkumas]

Benzer bi problemi bir turlu bulamadım. Checkboxa bir jpeg tanımlı yani bi resim ve baslıgı var. Checkboxın gorunmesi ama tıklama yapılamamasını istedigim durumda ;

Enabled=false ve Visible=true oldugunda

checkboxta baslık gorunuyor ama resim gorunmuyor resmin yeri tamamen gri ama ben resmin de gorunmesini istiyorum . Bir yolu var mı?

 

[nkumas]

Checkbox a disabledpicture tanımlamam gerekiyor ama bi turlu uygun kod kabul etmiyor. Loadpicture ile tekrar resim yukletmeliyim ama resmi sheete alıp yukletmek icin resimleri shape olarak gorup hata veriyor.

CheckBox1.Picture = Sheets("INPUT").Shapes("type1")
CheckBox1.Picture = Loadpicture(Sheets("INPUT").Shapes("type1"))

bi turlu calısmadı

CheckBox1.Object = Sheets("INPUT").Shapes("type1") bu da resmi yuklemiyor