Search results
Search results 121-140 of 325.
Dear visitor, welcome to Jabaco - Community.
If this is your first visit here, please read the Help. It explains in detail how this page works.
To use all features of this page, you should consider registering.
Please use the registration form, to register here or read more information about the registration process.
If you are already registered, please login here.
Thanks a lot theuserbl... Quoted To fix the problem a german Java community have helped me: [ http://forum.byte-welt.net/threads/10058…s-forName%28%29 ]: Ich meinte, dass das nur 'ne Übung sein kann bzw. sein sollte, zumindest was die Klassen "Modul1" und "Form1" angeht. 1. Die Sache mit dem statischen JFrame (Form1) 2. Den JFrame noch nicht mal auf dem EDT konstruiert 3. Der MessageDialog bei jeder neuen Form 4. "setVisible()" in einem Konstruktor 5. Das sind alles NoGos und nur zu Übungszwecke...
Hey there theuserbl, You got me on the right path ... thanks again FINAL VERSION - ' Me.setOpaque(False) ' makes all the difference ! Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit 'override 'SuperClass: javax/swing/JLabel Dim gradientPaint As java#awt#GradientPaint = New GradientPaint(0, 70, color.gray, 0, 0, color.white, False) Public Sub paint(g As Graphics) Me.setOpaque(False) Dim g2 As Graphics2D = Cast(g, Graphics2D) g2.setPaint(gradientPaint) g2.fillRect(1, 0, Base.getWidt...
Still, If you outcomment the 'On Error' statement Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Option Explicit 'override 'SuperClass: javax/swing/JLabel Dim gradientPaint As java#awt#GradientPaint = New GradientPaint(0, 70, color.gray, 0, 0, color.white, False) Public Sub paintComponent(g As Graphics) ' On Error Goto LoadErr Dim g2 As Graphics2D = Cast(g, Graphics2D) g2.setPaint(gradientPaint) g2.fillRect(1, 0, Base.getWidth(), Base.getHeight()) g2.setPaint(Color.black) g2.dr...
Thanks theuserbl, very strange... Quoted You have to uncomment the line with paint() and comment the line with paintComponent(). Then it works fine. Flüchtigkeitsfehler... I was playing around with all the different combinations last night (there are not so many ) Quoted 'Public Sub paintComponent(g As Graphics) Public Sub paint(g As Graphics) ... Me.paintComponent(g) ' Me.paint(g) I must have missed the one working combination !! The rest I got figured out myself... Dani
Hey there, I've got a ClassModule named 'GradientLabel' with SuperClass javax/swing/JLabel: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Option Explicit 'override 'SuperClass: javax/swing/JLabel Dim gradientPaint As java#awt#GradientPaint = New GradientPaint(0, 70, color.gray, 0, 0, color.white, False) Public Sub paintComponent(g As Graphics) 'Public Sub paint(g As Graphics) On Error Goto LoadErr Debug.Print Me.getText() Dim g2 As Graphics2D = Cast(g, Graphics2D) g2.setPai...
Hey there, I get 27 results for 'Unload Me'from the toplevel search of the forum! Still, you are right, it is not very intuitive. I have been there too... Dani
Hey there, You can view the changes I made here: https://code.google.com/p/jabacoframewor…vn106&r=106#289 The uncommented code looks fine to me. Still, it throws an error! Maybe someone wants to dig deeper. I am not sure if it is worth a new framework compillation yet. But you can try this: download the attached file index.php?page=Attachment&attachmentID=362 rename it to ListBox.class backup your Jabaco.jar copy that file to your Jabaco.jar (winzip, winrar) Dani
Hey there, I have committed a patch that fixed the Listbox.Style = vbListBoxCheckbox issue. However, I don't know why the previous code did not work!? Dani
Hey there, I did not look into it any further, but maybe this barcodegenerator alows additional text: http://barcode4j.sourceforge.net/index.html Also there are many VB implementations for barcodegenerators that might inspire a bit: http://planetsourcecode.com/vb/scripts/B…riteria=barcode Dani
Quoted with formatting & font designations which change a number of times throughout the document. I looked at it again, I guess I missed your point! The closest I get without using any 3rd party library is by saving the styled content to a html file!! Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 Public Sub SaveRTF(RTB As RichTextBox, RTFFileName As String) Dim fos As New java#io#FileOutputStream(New File(RTFFileName)) Dim doc As javax#swing#text#StyledDocument = RTB.Parent.getStyledDocument() Dim kit...
solution... http://www.jabaco.org/board/p3701-richtext-box.html#post3701
Quoted I'm making a Library Application for the church I attend which has the option of using a bar code scanner and can print out barcode labels. Almost finished. When I'm done I'll post it. It has many work-arounds ... Please do, I'd be interested to take a look at it. Especially the Barcode stuff! Dani
Hey there Perry, Quoted The problem with VB is that the runtime is not distributed adequately, and it will only run on a Microsoft OS, and they are threatning to drop support for it.... well I think VB is so wide spread and discussed that one can pretty much spare MS support. The VB runtime is only around 1MB so it is eaysily distributed nowadays. To me it is the OS independence and the close resemblance to VB that makes Jabaco so attractive. Quoted I Hope the Framework gets adjusted to implemen...
Hey there, inspired by A1880 Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Sub Form_Load() RichTextBox1.Text = "" RichTextBox1.appendText "Hey there," End Sub Public Sub SaveRTF(RTB As RichTextBox, RTFFileName As String) Dim fos As New java#io#FileOutputStream(New File(RTFFileName)) Dim Doc As javax#swing#text#Document = RTB.Parent.getDocument Dim kit As javax#swing#text#EditorKit = RTB.Parent.getEditorKit Call kit.write(fos, Doc, 0, Len(RTB.Text)) fos.close End Sub Public Sub Comm...
Yeah it works, but be aware that this is a detour! Since Jabaco Source 1 Me.MenuBar.createRadioButtonMenu within the framework already creates a ButtonGroup! I am just not sure how to get a handle on it. https://code.google.com/p/jabacoframewor…enuItem.jsrc#41
Hey there, here you go... Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Dim tmpGroupFile As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(Nothing, "File", "File", True) Dim rbtn1Group As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(tmpGroupFile, "RadioButton", "RadioButton",True) Dim rbtn1 As ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn1","Yes", True, True) Dim rbtn2 As ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn2","No", False) Public ...
by the way Jabaco Source 1 New java#io#File(getClass.getProtectionDomain.getCodeSource.getLocation.toURI.getPath).getAbsolutePath still has the executables name at the end so we have to strip that to get the path. Like I did with my first approach.
this seems to be working accurately Jabaco Source 1 New java#io#File(getClass.getProtectionDomain.getCodeSource.getLocation.toURI.getPath).getAbsolutePath this does not Jabaco Source 1 New java#io#File(getClass.getResource(".").toURI.getPath).getAbsolutePath did not test on Mac yet... Dani
Hmm, I believe it should be App.Path since we are looking for the path to the executable (where the executable and possible other files, e.g.databasefiles are stored)! CurDir is the current directory of a drive and might change during the lifecycle of our executable. We might also use TmpDir (e.g.: C:/Users/Administrator/AppData/Local/Temp/Jabaco226808232/) but I don't know if that is relevant during runtime. Maybe for debuging though!? Dani
Hey there, I know it is a bit of an overkill but this has proven to be reliable on Win and Mac with the compiled program: Jabaco Source 1 Debug.Print Replace(Replace(Left(getClass().getProtectionDomain().getCodeSource().getLocation(),InStrRev(getClass().getProtectionDomain().getCodeSource().getLocation(), "/")),IIF(Left(Mid(getClass().getProtectionDomain().getCodeSource().getLocation(),8),1)=":","file:/","file:"),""),"%20"," ") as long as you are on Windows machines only: Jabaco Source 1 Debug.P...