userformda bir kaç activate yada initialize kullanabilirmiyiz

[clymax]

arkadaşlar merhaba yaptığım userformda minimize ve maksimize kullanıyorum bunlar devreye girerken userform_activate() kullanarak devreye giriyor

fakat üç tane combobox sum var bunlarda d sürücüsünden dosyaları göstermesi gerekiyor ama userform_initialize yada userform_activate()benim anladığım birden fazla kullanamıyacağım ...

kullandığım zaman hata veriyor benim sormak istediğim şu bu comboxları nasıl devreye sokarım negibi birşey yapılabilir yardımlarınızı bekliyorum...

 

[ceyrek]

Demek istediğinizi örnekle desteklerseniz daha rahat anlaşılır ama anladığım kadarıyla şöyle bişey yapmak istiyorsunuz:

 Private Sub UserForm_Initialize()
call combo1
call combo2
call combo3
.
.
End Sub

sub combo1
.
.
.
end sub
sub combo2
...
end sub
sub combo3
...
end sub

İyi çalışmalar...

 

[clymax]

demek istediğim

örnek olarak


Private Sub UserForm_initialize()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, GetWindowLong(hWnd, -16) Or &H10000 _
Or &H20000 Or &H40000
AddIcon
AddMinimiseButton
AppTasklist Me
End Sub


private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("d:\bütçeler")
Set dc = f.Files
For Each dosya In dc
cmdimalat.AddItem dosya.Name
Next
End Sub


bu şekilde olduğunda hata veriyor nedenini bilmiyorum

activate ve initialize ne işe yarar bana söyliyebilirmisiniz


şimdiden teşekkürler

 

[Zeki Gürsoy]

Birden fazla Initialize olamaz. İkincisini diğerinin altına yazabilir yada ya da farklı bir isim vererek ilk Init. altından çağırabilirsiniz.

 

[clymax]

biraz açıklarmısınız lütfen

 

[Zeki Gürsoy]

Elbette, aşağıdaki örneklerde olduğu gibi,
Örnek 1:

Private Sub UserForm_initialize()
Dim hWnd As Long
Dim ds, dc, f, s
 
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, GetWindowLong(hWnd, -16) Or &H10000 _
Or &H20000 Or &H40000
AddIcon
AddMinimiseButton
AppTasklist Me
[COLOR=darkgreen]'----[/COLOR]
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("d:\bütçeler")
Set dc = f.Files
For Each dosya In dc
cmdimalat.AddItem dosya.Name
Next
End Sub

Örnek 2:

Private Sub UserForm_initialize()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, GetWindowLong(hWnd, -16) Or &H10000 _
Or &H20000 Or &H40000
AddIcon
AddMinimiseButton
AppTasklist Me
[COLOR=darkgreen]'------[/COLOR]
Call MyFiles
End Sub
 
[COLOR=darkgreen]'********[/COLOR]
Private Sub MyFiles()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("d:\bütçeler")
Set dc = f.Files
For Each dosya In dc
cmdimalat.AddItem dosya.Name
Next
End Sub