DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Deneyiniz
Set yeniPg = hedefMultiPage.Pages.Add
yeniPg.Caption = "Bilgi Girişi 2"
Sub DinamikKontrolOlustur(hedefMultiPage As Object)
Dim i As Long
Dim pg1 As Object
Dim pg2 As Object
For i = hedefMultiPage.Pages.Count - 1 To 1 Step -1
hedefMultiPage.Pages.Remove i
Next i
Set pg1 = hedefMultiPage.Pages(0)
pg1.Caption = "Bilgi Girişi 1"
Set pg2 = hedefMultiPage.Pages.Add("pg_Giris_2", "Bilgi Girişi 2")
End Sub
Kod:Sub DinamikKontrolOlustur(hedefMultiPage As Object) Dim i As Long Dim pg1 As Object Dim pg2 As Object For i = hedefMultiPage.Pages.Count - 1 To 1 Step -1 hedefMultiPage.Pages.Remove i Next i Set pg1 = hedefMultiPage.Pages(0) pg1.Caption = "Bilgi Girişi 1" Set pg2 = hedefMultiPage.Pages.Add("pg_Giris_2", "Bilgi Girişi 2") End Sub
Bunu kullanınınız
Teşekkür ederim hocam dediğiniz şekilde hata vermedi mp hepsini frame içersine alıyorumŞöyle deneyiniz...
Formunuzun üzerine bir Frame daha ekleyin. Sonra Multipage1 ve Frame1 nesnesini bu yeni Frame içine sürükleyiniz.
Sonra kodu çalıştırınca büyük ihtimalle sorununuz çözülecektir.