• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Vb.net Resim Göstermek İçin Bi UserControl

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Dark Hack

Onaylı Üye
Katılım
8 May 2016
Mesajlar
208
Beğeni Puanı
1
'Yeni bir user control oluşturun adını imageresize yapın ve aşağıdaki componentleri içine ekleyin...
[font='Titillium Web', sans-serif]'-> 1 adet textbox[/FONT]
[font='Titillium Web', sans-serif]'-> 1 adet image[/FONT]
[font='Titillium Web', sans-serif]'----------------------------------------------------------------------------------------------------[/FONT]
[font='Titillium Web', sans-serif]'-> text1 In visible özelliğini False yapın[/FONT]
[font='Titillium Web', sans-serif]'->image1 In stretch=True , Height=3000 , Width=4000, Left=0, top= 0[/FONT]
[font='Titillium Web', sans-serif]'->imageresize width=90 , height=90, backstyle=Transparent[/FONT]

[font='Titillium Web', sans-serif]'Kod:[/FONT]
[font='Titillium Web', sans-serif]'------------------------------------------------------------------------------------------------------[/FONT]

[font='Titillium Web', sans-serif]Private Sub Text1_Change()[/FONT]
[font='Titillium Web', sans-serif]If Text1.Text <> "" Then[/FONT]
[font='Titillium Web', sans-serif]Image1.Picture = LoadPicture(Text1.Text)[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]boyutlandır[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]
[font='Titillium Web', sans-serif]Private Sub UserControl_Initialize()[/FONT]
[font='Titillium Web', sans-serif]boyutlandır[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]
[font='Titillium Web', sans-serif]Public Property Get resim() As String[/FONT]
[font='Titillium Web', sans-serif]resim = Text1.Text[/FONT]
[font='Titillium Web', sans-serif]End Property[/FONT]
[font='Titillium Web', sans-serif]Public Property Let resim(ByVal vNewValue As String)[/FONT]
[font='Titillium Web', sans-serif]Text1.Text = vNewValue[/FONT]
[font='Titillium Web', sans-serif]End Property[/FONT]
[font='Titillium Web', sans-serif]Private Sub boyutlandır()[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = False[/FONT]
[font='Titillium Web', sans-serif]If Image1.Width > UserControl.Width / 1000 Then[/FONT]
[font='Titillium Web', sans-serif]If Image1.Height > UserControl.Height / 1000 Then[/FONT]
[font='Titillium Web', sans-serif]If Image1.Width / Image1.Height > UserControl.Width / UserControl.Height Then[/FONT]
[font='Titillium Web', sans-serif]a = Image1.Width / UserControl.Width[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / a[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / a[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]b = Image1.Height / UserControl.Height[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / b[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / b[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]c = Image1.Width / UserControl.Width[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / c[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / c[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]If Image1.Height > UserControl.Height / 1000 Then[/FONT]
[font='Titillium Web', sans-serif]If Image1.Width / Image1.Height > UserControl.Width / UserControl.Height Then[/FONT]
[font='Titillium Web', sans-serif]d = Image1.Width / UserControl.Width[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / d[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / d[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]e = Image1.Height / UserControl.Height[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / e[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / e[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]f = Image1.Width / UserControl.Width[/FONT]
[font='Titillium Web', sans-serif]Image1.Stretch = True[/FONT]
[font='Titillium Web', sans-serif]Image1.Width = Image1.Width / f[/FONT]
[font='Titillium Web', sans-serif]Image1.Height = Image1.Height / f[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]Image1.Top = (UserControl.Height - Image1.Height) / 2[/FONT]
[font='Titillium Web', sans-serif]Image1.Left = (UserControl.Width - Image1.Width) / 2[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt