Probably I have found the problem: the init sub must be changed as below: Jabaco Source 1 2 3 4 5 6 7 8 Public Sub InitDate(thisDate As Date) Dim Cal As GregorianCalendar = Cast(MyCal.clone, java#util#GregorianCalendar) Cal.set(Calendar.YEAR, Year(thisDate)) Cal.set(Calendar.MONTH, Month(thisDate)-1) Cal.set(Calendar.DAY_OF_MONTH, Day(thisDate)) InitCalendar(Cal) bInitEnd = True End Sub I hope it can be useful.
Something seems to be buggy. Here the initial date is one mont forward. Today the control says it is january 21 2014! I tried digging the code but didtnt foud the mistake... Would someone check it? TIA
Forgive me for my ignorance, but i'm rather a beginner. i'm trying to port this under Jabaco, but it doesn't work: Source code 1 2 3 4 5 6 Dim s as String s = Dir ("c:\data\*.dat") Do While s <> "" cmbUtente.AddItem (s) s = Dir Loop I get an error in compilation! May someone help me? Thanks in advance. Alex
Thank you very much! It somehow works, even if under IDE it returns the program working folder, compiled as JAR, it shows the complete file.jar file path and compiled as .EXE it gives a \temp folder path.... It's a shame ther is not an easy, direct way to geth the program folder path!
moreover app.path doesn't wok even in a .exe complied project
I tested this code and it works perfectly here (though changing "URL" with "url" in line 8 ) when i launch the app in jabaco IDE. But, if i compile the program, it gives the error reported below. Any ideas about why? Java.lang.NullPointerException at Master.GetAppPath(Master.jsrc:12) at Master.Form_Load(Master.jsrc:6) at VB.AbstractForm.fireLoaded(AbstractForm.jsrc) at VB.LoadAdapter.run(LoadAdapter.jsrc) at java.awt.event.InvocationEvent.dispatch(Unknown Source) at java.awt.EventQueue.dispatchE...
I know the file handling subject was alreaty treated, but i was'n able to find something explaing how to convert this passage: Source code 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 Private Sub Form_Load() Dim Reply As Integer ' Generate the full data file path and name. ' We store it in the application directory. FullFileName = App.Path & "" & FILENAME FileNum = FreeFile ' Open the data file and calculate the number of records in it.. Open FullFileName F...
Hi, Has anyone managed something to solve those problems about Slider Control?