Search results
Search results 121-140 of 277.
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.
Hi, Yes, cool code, and it's cool that basic code completely runs on Jabaco. Have you mentioned the function java#lang#Long.valueOf 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 Public Sub Form_Load() Dim i As Integer Dim l As Long Dim hs As String hs = "ABCDEF12" MsgBox Len(hs) i = Hex2Int(hs) MsgBox Hex(i) hs = hs & "2345678" '9" MsgBox Len(hs) l = Hex2Lng(hs) MsgBox Hex(l) End Sub Function Hex2Int(H As java#lang#String) As Integer If H.startsWith("&H...
I still believe that youtube is just kidding like he did with the virus stuff videos @Youtube: don't you OlimilO
thanks, little workaround: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub Form_Load() Dim i As Integer i = &HABCD MsgBox Hex(i) & " " & CStr(i) i = CopyBytes(&HABCD) MsgBox Hex(i) & " " & CStr(i) End Sub Function CopyBytes(s As java#lang#Short) As Integer If s < 0 Then CopyBytes = s XOr &HFFFF0000 Else CopyBytes = s End If End Function OlimilO
Hi, is there something what i do not see, or is it in fact a bug? Jabaco Source 1 2 3 4 5 6 7 8 Dim v As Integer v = &H8000 MsgBox Hex(v) & " " & CStr(v) 'the Jabaco Integer is a int32 'what we expect: '8000 32768 'what we get: 'FFFF8000 -32768 The problem is that there is no possibility to distinguish between int16 and in32 hex values. In VB there is the "&"-sign for Longs. OlimilO
Hello, in VB there is the Currency-datatype. Internally it is a signed Int64, but with a fixed divisor of 10000. It seems that Jabaco knows the Currency datatype as well, but how can we assign a value to it? I tried: Jabaco Source 1 2 Dim c As Currency c = 1.5 and also: Jabaco Source 1 2 Dim c As Currency c = CCur(1.5) OlimilO
Hi, String-functions can be found in the Strings-module. For Left/Right you could also use the Mid-function You do not need the For-Next-loop, use the InStrRev-function instead, that returns the position of a string from the right. greetings OlimilO
Hi, yes you were right, "Exit Function" should be "Exit Sub" but to return the function success should even be better please let's think about this piece: Jabaco Source 1 2 3 'Is a Directory or File? - No extension assumes a Directory If (Len(toFile)>4 And Left(Right(toFile,4),1) = ".") Or (Len(toFile)>5 And Left(Right(toFile,5),1) = ".") Then ' Due to existing extension it assumes to be a file could you please tell what lead you to this assumption? * a directory also can have a point, and * not...
Hi, i have updated the FileSystem-modul in the Framework, now we have the function FileCopy. The Framework is not compiled until now due to other problems, but you could copy the function to your project. 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 69 Public Sub FileCopy(Source As String, Destination As String) ' 'http://www.java2s.c...
OK I have changed the FileSystem module. Now it is possible to write File IO that is more similar to VB. Let's consider the following VB-example: 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 Dim FNm As String Private Sub Form_Load() FNm = "C:\Test.txt" End Sub Private Sub Command1_Click() Dim FNr As Integer: FNr = FreeFile Open FNm For Output As FNr Print #FNr, "1. line" Write #FNr, "2. line quoted" Print #FNr, "3. line first entry + "; ...
Hi, i found something - maybe it's interesting: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 Public AppPath As String Public Sub Form_Load() AppPath = GetAppPath MsgBox AppPath End Sub Public Function GetAppPath() As String Dim appURL As URL appURL = getClass.getResource(".") Dim s As String = appURL.getPath GetAppPath = Replace(s, "%20", " ") End Function in fact it returns the folder that jabaco creates in the temp-directory. greetings OlimilO
Quoted the problem, were you are talking about, correct fixed since version 1.5.2
Quoted The two dialogs look the same yes, the javax#swing#JFileChooser looks very similar to the original CommonDialog-control But let's have a second look: * the swing-dialog has not the same context-menu (right-mouse click) than the awt-dialog has * the swing-dialog is selfdrawn, this is the reason why it looks the same as the WinXP-control under Win-Vista in fact true is also, that also the awt-FileDialog does not completely look like the CommonDialog-Control under Win-Vista. But this is tru...
Hi, Yes it's true the Filter-property was not implemented until now. All Jabaco controls are based on the Swing-framework. The exception proves the rule, the CommonDialog-control is based on java#awt#FileDialog. This is because the security-manager (that plays a role when making an applet) does not like Filedialogs anyway. So Manuel decided to prefer the control that looks more like the original CommonDialog-control because the java#awt#Filedialog is based on the windows-intrinsic comdlg32.dll-c...
PS Quoted as well as basic graphics operations yes of course it should be possible to implement scaled VB-like graphics, but also it is a huge hill of work. My idea is to translate the sourcecode of this VB.Net-package from Dario a very good programmer. OlimilO
Hi, here you can see what is possible until now, the syntax is as close as possible für reading and writing (printing in) lines from/in text files. by using Line Input I try to implement something like this in the framework. if you want to have a syntax similar to VB for the Open statement Jabaco Source 1 Open FileName For Binary/Input/Outrut/Random [Access][Read/Write] As FileNr than this is of course not possible to realize in the framework, this must be supported and done by the compiler Jaba...
habs mir jetzt angesehen und hab auch wieder was dabei gelernt Code in Form1: Jabaco Source 1 2 3 Public Property Let Text1Text(aText As String) Me.Text1.Text = aText End Property Code im Applet: Jabaco Source 1 2 3 4 5 6 7 8 9 Dim channelfenster As Form1 Public Sub Applet_Initialize() channelfenster = New Form1 channelfenster.Show() End Sub Public Sub Command1_Click() 'hier ein Punkt weniger ;) channelfenster.Text1Text = "test" End Sub p.s: wenn das Form sichtbar sein soll dann Show erst bei Ap...
Hello everybody, in VB6 filling a TreeView with data is a mess because there is no stack-class. thanks to Jabaco and the Java-framework we already have a stack class that can be found in the namespace java#util. I have created a small class that makes life easy, with it you can fill a TreeView very convenient, and your code looks almost very similar to the tree you want to create. Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub FillTree With TVS For i = i To i + 3 .AddNode...
Hallo, lad doch mal dein Projekt hoch, vielleicht kann man sich das anschauen... soviel ich weiß heißt das Standardformular in einem SDI-Projekt Form1 in einem Applet-Projekt Applet1 hast du das Applet-fenster umbenannt? wo steht die von dir gepostete Codezeile innerhal des Formulars/Appletfensters? dann verwende bitte Me anstatt Form1 oder Applet1 OlimilO
it's in the framework now: http://code.google.com/p/jabacoframework…nteraction.java @KusaNoKaito thanks for the hint to the missing function
Hi, yes we could implement it in this way: Source code 1 2 3 4 5 6 7 8 9 10 java.awt.Robot SendKeysRob; public void SendKeys(String skey) { SendKeys(skey, 0); } public void SendKeys(String skey, int wait) { If (SendKeysRob = null) SendKeysRob = new Robot; int a = Asc(skey); SendKeysRob.keyPress(a); If (wait > 0) SendKeysRob.delay(wait); } Jabaco Source 1 2 3 4 5 6 7 Dim SendKeysRob As java#awt#Robot Public Sub SendKeys(skey As String, Optional wait) If SendKeysRob Is Nothing Then SendKeysRob = N...