DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Yapar..yapar bilirim..İstenilen şekle değil istenilmeyen şekle bile getirir..Hatta tekiz dombalak bile attırır..HeheBen biraz karıştırdım, ve aşağıdaki resimlerde görüldüğü gibi sizin istediğiniz şekle getirdim dosyanızı.
attıracağından şüphemiz yok... Ne var ki onun hızına ,kapasitesine erişebilmemiz mümkün değil. Müslümanlığın altıncı şartı haddini bilmektir.tekiz dombalak bile
Private Sub CommandButton1_Click()
CreateIcon
End Sub
'
Private Sub CommandButton2_Click()
DeleteIcon
End Sub
Private Sub Form_Load()
Dim x As LOGFONT
'Picture1.AutoRedraw = True
acı = 270
boyut = 10
x.lfEscapement = acı * 10
x.lfHeight = (boyut * -20) / Screen.TwipsPerPixelY
rFont = CreateFontIndirect(x)
Call SelectObject(Picture1.hdc, rFont)
Picture1.CurrentX = Picture1.ScaleWidth / 2
Picture1.CurrentY = 0
Print "%100 90 80 70 60 50 40 30 20 10 0)"
End Sub
Private Sub UserForm_Initialize()
CreateIcon
End Sub
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
DeleteIcon
End Sub
İlhan bey;milhanalp' Alıntı:....
...
Ancak ben işi biraz daha tembelliğe vurduğum için, dosya windows la başlasın istemiştim.
..