userforma kare ekleme

[prgmalik]

Userform dizay ekranında hiç kare çizmeden kod ile userform üzerine kare çizebilirmiyiz acaba yardımlarınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Userform dizay ekranında hiç kare çizmeden kod ile userform üzerine kare çizebilirmiyiz acaba yardımlarınız için şimdiden teşekkür ederim.

Bir label nesnesini kare gibi userform üzerine ekleyebilirsiniz. Aşağıdaki kodlar ile bu işlemi yapabilirsiniz.

Controls.Add "Forms.label.1", "label1"
Controls("label1").Width = 50
Controls("label1").Height = 50
Controls("label1").Left = 45
Controls("label1").Top = 45
Controls("label1").Caption = ""
Controls("label1").BorderStyle = 1

 

[prgmalik]

Çok Teşekkür ederim Levent hocam bir de herhangi bir userform üzerinde imlecin koordinatını (x,y) nasıl alabilirim acaba 64 bit te yardımlarınız için şimdiden teşekkür ederim.