checkbox ile listeleme yardımı

[ojibu]

bir personel programı yapmaktayım. ekteki userform üzerindeki checkbox ile seçim yaparak nasıl liste oluşturabilirim. ayrıca userform üzerindeki x (cancel) nasıl yok edebilirim ki kodla kapatma yapabileyim.teşekkürler.

 

[ojibu]

bir soruma cevap buldum ancak diğeri duruyor. cevap verecek yok mu? userformdan kapatmayı önleyen makro;

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Programdan Kapatın", vbExclamation, "Uyarı"
Cancel = True
End If
End Sub

 

[Orion1]

Dosyanız ekte.

 

[Ex.Sarge]

aşağıdaki kod ile x işaretini pasif yapabilirsiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

veya

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = 0 Then Cancel = True
End Sub

userformda x işaretini kaldırmak için yine bu forumda öğrendiğim aşağıdaki api'yi kullanabilirsiniz.

Private Declare Function GetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[ojibu]

sayın evren ilginize teşekkür ederim. keşke birde listbox u nasıl yazdırabileceğimi ekleseydin süper olurdu. şimdi onunla uğraşıyorum. galiba bir sayfaya indirip ordan yazdırmak gerekiyormuş.direk listboxtan yazdırılmıyormuş.
teşekkürler