Hallo Community,
ich bin ein Newbie in Sachen Jacobo (Java), habe bisher mit VB6 und VBA gearbeitet.
Habe ein bisschen mit Jabaco probiert und finde es einfach Klasse!
Jetzt bin ich am überlegen, ob ich mein nächstes Project mit Jabaco ertelle, bin mir aber noch nicht ganz im Klaren, wie die eine oder andere Hürde zu nehmen ist.
In meinen entwickelten Vb6-Projecten sind u.a. zahlreiche API's vorhanden und ich weiss nicht, wie das in Jacobo umzusetzen ist, oder ob eine neue Entwicklung dieser Routinen vorzuziehen ist? Habe etwas in diesem Forum zu NativeCall gelesen, aber dann bin ich wieder von Windows abhängig und das ist nicht gerade Plattformunabhängig?
Da ich mich noch nicht mit Java beschäftigt habe, ist es schwierig und zeitintensiv für mich die entsprechenden Bibliotheken zu finden, bzw. richtig zu laden.
Mein nächstes Project soll eine umfangreiche Datenbank-Anwendung werden, Jetzt die Frage, ob ins kalte Wasser springen oder nicht? Beim Kunden solls später ja auch ohne Probleme laufen, ohne lang herumzuwursteln. Auf der anderen Seite reizt die unabhängigkeit von Windows und teilweise einfachere Handhabung.
Wie würde man z.B. am besten das nachfolgende VB6 Beispiel in Jacobo umsetzen?
Grüße
Smily
|
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
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
|
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Any) _
As Long
Const WM_VSCROLL = &H115
Const SB_LINEUP = 0
Const SB_LINEDOWN = 1
Const SB_PAGEUP = 2
Const SB_PAGEDOWN = 3
Const SB_TOP = 6
Const SB_BOTTOM = 7
Private Sub Command1_Click()
Dim i As Long
'If Index = 0 Then
For i = List1.ListCount To List1.ListCount + 14
List1.AddItem "neuer eintrag " & i
Next i
'End If
End Sub
Private Sub Command2_Click(Index As Integer)
If Index = 0 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_BOTTOM, 0&
ElseIf Index = 1 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_TOP, 0&
ElseIf Index = 2 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_PAGEUP, 0&
ElseIf Index = 3 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_PAGEDOWN, 0&
ElseIf Index = 4 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_LINEUP, 0&
ElseIf Index = 5 Then
SendMessage List1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "neue Einträge hinzufügen"
Command2(0).Caption = "Ende"
Command2(1).Caption = "Anfang"
Command2(2).Caption = "PageUp"
Command2(3).Caption = "PageDown"
Command2(4).Caption = "LineUp"
Command2(5).Caption = "LineDown"
End Sub
|