Forums Neueste Beiträge
 

VBA nach VB 6 konvertieren

29/10/2007 - 11:53 von Toni Strnad | Report spam
Hallo Ihr Lieben!

Ich möchte eine in ACCESS VBA geschriebene Routine nach VB 6
konvertieren. Das geht zum größten Teil auch gut, aber zu einigen
Befehlen und Funktionen finde ich keine Entsprechung in VB 6.

Gibt es irgendwo eine Liste der VBA - VB Entsprechungen?

Es handelt sich u.a. um folgende Funktionen:
1. DoCmd.Hourglass (DoCmd generell)
2. Konstruktion von Steuerelement-Namen
Beispiel:
For i = StartDay To StartDay + NumDays
D = DateSerial(UFKData.ufkJahr, UFKData.ufkMonat, CurrDay)
UFKForm("btn" + CStr(i)).Caption = CStr(CurrDay)
UFKForm("btn" + CStr(i)).Enabled = True
UFKForm("btn" + CStr(i)).Value = 0
UFKForm("btn" + CStr(i)).ForeColor = QBColor(0) 'Schwarz
UFKForm("btn" + CStr(i)).FontBold = False
Next

Wie kann ich das in VB6 realisieren?

Herzlichen Dank im voraus für jeden Tip!

Liebe Grüße aus Erkelenz
Toni Strnad
 

Lesen sie die antworten

#1 Aimo Grosse
29/10/2007 - 15:09 | Warnen spam
Hallo Toni,

"Toni Strnad" schrieb im Newsbeitrag
news:
Hallo Ihr Lieben!

Ich möchte eine in ACCESS VBA geschriebene Routine nach VB 6
konvertieren. Das geht zum gröàŸten Teil auch gut, aber zu einigen
Befehlen und Funktionen finde ich keine Entsprechung in VB 6.

Gibt es irgendwo eine Liste der VBA - VB Entsprechungen?

Es handelt sich u.a. um folgende Funktionen:
1. DoCmd.Hourglass (DoCmd generell)



screen.mousepointer = vbhourglas
bzw.
screen.mousepointer = vbdefault

2. Konstruktion von Steuerelement-Namen
Beispiel:
For i = StartDay To StartDay + NumDays
D = DateSerial(UFKData.ufkJahr, UFKData.ufkMonat, CurrDay)
UFKForm("btn" + CStr(i)).Caption = CStr(CurrDay)
UFKForm("btn" + CStr(i)).Enabled = True
UFKForm("btn" + CStr(i)).Value = 0
UFKForm("btn" + CStr(i)).ForeColor = QBColor(0) 'Schwarz
UFKForm("btn" + CStr(i)).FontBold = False
Next

Wie kann ich das in VB6 realisieren?

Herzlichen Dank im voraus fà¼r jeden Tip!

Liebe Grà¼àŸe aus Erkelenz
Toni Strnad


Ähnliche fragen