Beginner
Date of registration: Sep 22nd 2009
Location: London
Occupation: IT Consultant
Hobbies: inline skating, chess
Date of registration: Mar 13th 2009
Location: Oberirsen - Germany
Occupation: Senior Software Engineer
Hobbies: Programming aund Photography
|
|
Jabaco Source |
1 2 3 4 5 6 |
Dim ImgTypes() As String Dim i As Long ImgTypes = javax#imageio#ImageIO.getReaderFormatNames() For i = 0 To UBound(ImgTypes) Debug.Print ImgTypes(i) Next i |
Beginner
Date of registration: Sep 22nd 2009
Location: London
Occupation: IT Consultant
Hobbies: inline skating, chess
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Date of registration: Mar 13th 2009
Location: Oberirsen - Germany
Occupation: Senior Software Engineer
Hobbies: Programming aund Photography
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 |
Dim img As Image Dim canvas As JimiCanvas Set img = com#sun#jimi#core#Jimi.getImage("c:\\dummy\\audi.bmp") Set canvas = New JimiCanvas(img) canvas.setBounds(0, 0, Picture1.Width, Picture1.Height) Picture1.add(canvas) Picture1.Refresh |
Beginner
Date of registration: Sep 22nd 2009
Location: London
Occupation: IT Consultant
Hobbies: inline skating, chess
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Dim myJavaImage As Image = com#sun#jimi#core#Jimi.getImage("C:\WINDOWS\Web\Wallpaper\00000001.TIF") HX = myJavaImage.getHeight(Null) WX = myJavaImage.getWidth(Null) If WX > HX Then HX = Int(HX * (736 / WX)) WX = 736 Else WX = Int(WX * (580 / HX)) HX = 580 End If Dim myImage As IResource = New VBImage(myJavaImage.getScaledInstance(WX,HX,0)) Picture1.Picture = myImage Picture1.Refresh |