Here's how I got this to work.... It doesn't work very well yet. Create a form with a jbgrid named jbgrid1 and a command button named command1. Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 Option Explicit Public Sub Command1_Click() Dim cmdX As New CommonDialog Dim strFileName As String strFileName = "" cmdX.DialogTitle("Open Excell S...
The following code will draw a rectangle in picture1 (the picturebox). Use the boolean value true for rect to draw a rectangle, or use false to draw a line. The forecolor of the picturebox will be the color of the line. You can use the RGB function to obtain the long value for the color you are wanting to fill your rectangle with or you can use a common dialog box ( ). Hope this helps and good luck. Global TempX As Long Global TempY As Long Public Sub ChooseFontColor() ' The following code will ...
Here's how I got this to work... Be sure to include the toolkit as a resource. Dim myImage As #Image myImage = #Toolkit.getDefaultToolkit().getImage(PictureAddress) Picture1.Cls Picture1.DrawImage(myImage,0,0)
This worked for me... Dim p As java#awt#print#PrinterJob = java#awt#print#PrinterJob.getPrinterJob p.printDialog