Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Image in PictureBox...
Autor: smither
Datum: 09.01.04 20:53
...hm bei blinkt nix aber probiers mal mit scrollbars sieht auch besser aus. habs bei mir gerade mal ausprobier hier der code plus eine vergrösserung und verkleinerung. du musst neben deine picturebox nur eine horizontalen und einen vertikalen scrollbalken packen, der rest sollte passen. viel spass Private Sub Command1_Click() Image1.Top = Image1.Top - 5 End Sub Private Sub Command2_Click() Image1.Top = Image1.Top + 5 End Sub Private Sub Form_Load() HScroll1.Max = Image1.Width - Picture1.Width HScroll1.LargeChange = HScroll1.Max / 10 HScroll1.SmallChange = HScroll1.Max / 25 VScroll1.Max = Image1.Height - Picture1.Height VScroll1.LargeChange = VScroll1.Max / 10 VScroll1.SmallChange = VScroll1.Max / 25 End Sub Private Sub HScroll1_Change() Image1.Left = -HScroll1.Value End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Or Button = 2 Then ResizeImage Image1, Button End Sub Private Sub VScroll1_Change() Image1.Top = -VScroll1.Value End Sub Function ResizeImage(img As Image, i As Integer) 'i = ob grösser oder kleiner (1 kleiner - 2 grösser) 'Verkleinern If i = 1 Then img.Stretch = True img.Height = img.Height / 1.1 img.Width = img.Width / 1.1 ElseIf i = 2 Then 'Vergrössern img.Stretch = True img.Height = img.Height * 1.1 img.Width = img.Width * 1.1 End If End Function

Image in PictureBox...	474	Semy	09.01.04 19:39
Re: Image in PictureBox...	269	smither	09.01.04 20:08
Re: Image in PictureBox...	280	Semy	09.01.04 20:33
Re: Image in PictureBox...	311	smither	09.01.04 20:53
Re: Image in PictureBox...	249	Semy	09.01.04 20:59
Re: Image in PictureBox...	290	Semy	09.01.04 21:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen