VB6 Befehle in VB2008 Befehle ändern

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten,
ich bin grade dabei den Code von einem VB6 Programm zu erneuern, das klappt auch alles soweit aber die Datei form1.vb kann nicht vom Programm aktualisiert werden.

Das liegt wahrscheinlich an folgenden Befehlen:
Me.Command4. FOCUSR = -1
Me.Command4. BCOL = 15724527
Me.Command4. BCOLO = 15724527
Me.Command4. FCOL = 0
Me.Command4. FCOLO = 0
Me.Command4. MCOL = 12632256
Me.Command4. MPTR = 1
Me.Command4. MICON = 0
Me.Command4. UMCOL = -1
Me.Command4. SOFT = 0
Me.Command4. PICPOS = 0
Me.Command4. NGREY = 0
Me.Command4. FX = 0
Me.Command4. HAND = 0
Me.Command4. CHECK = 0

Kann mir irgend jemand sagen wie diese Befehle in VB2008 heissen?

Danke im Vorraus

#2

Hallo,

Das liegt wahrscheinlich an folgenden Befehlen:
Me.Command4. FOCUSR = -1
Me.Command4. BCOL = 15724527
Me.Command4. BCOLO = 15724527
Me.Command4. FCOL = 0
Me.Command4. FCOLO = 0
Me.Command4. MCOL = 12632256
Me.Command4. MPTR = 1
Me.Command4. MICON = 0
Me.Command4. UMCOL = -1
Me.Command4. SOFT = 0
Me.Command4. PICPOS = 0
Me.Command4. NGREY = 0
Me.Command4. FX = 0
Me.Command4. HAND = 0
Me.Command4. CHECK = 0

Kann mir irgend jemand sagen wie diese Befehle in VB2008
heissen?

was hast Du für ein eigenartiges VB6? In welcher Sprache ist das?

Mein VB6 kennt keine dieser Eigenschaften.

Gruß Rainer

#3

Hallo Horst,

wie Rainer bereits schrieb gibt es in VB diese Befehle nicht.

Schreib doch einfach mal, was du machen willst?
Eine Umsetzung von alten VB Code nach .NET geht meistens schief und selbst wenn es klappt, gibt es unter .NEt schnellere und sichere Varianten!

MfG Alex

#4

Aktualisierung
Danke erstmal,

durch ausprobieren habe ich festgestellt, dass folgende Eigenschaften sehr denen aus der ersten Frage ähneln:

Me.Command4.ButtonType = XP_Buttons.ButtonTypes.Flat_Highlight
Me.Command4.Text = „Text“
Me.Command4.Enabled = 1
Me.Command4.ColorScheme = XP_Buttons.ColorTypes.Custom
Me.Command4. FOCUSR = -1
Me.Command4.BackColor = Color.AliceBlue
Me.Command4.BackColor = Color.AliceBlue
Me.Command4.ForeColor = Color.Black
Me.Command4.ForeColor = Color.Black
Me.Command4.MaskColor = Color.Beige
Me.Command4.MousePointer = Cursors.Default
Me.Command4.MouseIcon =
Me.Command4. UMCOL = -1
Me.Command4. SOFT = 0
Me.Command4.PicturePosition=XP_Buttons.PicPositions.cbBackground
Me.Command4. NGREY = 0
Me.Command4. FX = 0
Me.Command4.HandPointer = 0
Me.Command4. CHECK = 0

Jetzt widrd auch bei den geänderten kein Fehler mehr angezeigt.
Bleiben also nur noch die hervorgehobenen sechs übrig.

Wäre toll wenn irgendwer eine Idee hat…

@Rainer:
Das ist die Datei die der Windows Form-Designer erstellt.

Me => Das Windows-Form
Command4 => Variable

( Public WithEvents Command4 As XP_Buttons ))

#5

Hallo Horst,

Danke erstmal,

durch ausprobieren habe ich festgestellt, dass folgende
Eigenschaften sehr denen aus der ersten Frage ähneln:

Eigenschaften ? Also handelt es sich doch um ein Object welches du nutzt :wink:
Eigenschaften von Objecten kannst du doch im Eigenschafsfenster festlegen, es sei denn du erzeugst das Object manuell

Me.Command4.ButtonType =
XP_Buttons.ButtonTypes.Flat_Highlight
Me.Command4.Text = „Text“
Me.Command4.Enabled = 1
Me.Command4.ColorScheme = XP_Buttons.ColorTypes.Custom
Me.Command4. FOCUSR = -1
Me.Command4.BackColor = Color.AliceBlue
Me.Command4.BackColor = Color.AliceBlue
Me.Command4.ForeColor = Color.Black
Me.Command4.ForeColor = Color.Black
Me.Command4.MaskColor = Color.Beige
Me.Command4.MousePointer = Cursors.Default
Me.Command4.MouseIcon =
Me.Command4. UMCOL = -1
Me.Command4. SOFT = 0

Me.Command4.PicturePosition=XP_Buttons.PicPositions.cbBackground
Me.Command4. NGREY = 0
Me.Command4. FX = 0
Me.Command4.HandPointer = 0
Me.Command4. CHECK = 0

Jetzt widrd auch bei den geänderten kein Fehler mehr
angezeigt.
Bleiben also nur noch die hervorgehobenen sechs übrig.

Wäre toll wenn irgendwer eine Idee hat…

@Rainer:
Das ist die Datei die der Windows Form-Designer erstellt.

Me => Das Windows-Form
Command4 => Variable

( Public WithEvents Command4 As XP_Buttons ))

Wie hast du denn den XP Button auf die Form bekommen? Via Drag and Drop oder erzeugst du diesen im Code?

By the Way: Warum erstellst du dir via WPF keinen neuen Button ? Oder erstellst einen neuen indem du eine Klasse erstellst dort den Button importierst und die Paint Methode überschreibst?

MfG Alex

#6

By the Way: Warum erstellst du dir via WPF keinen neuen Button
? Oder erstellst einen neuen indem du eine Klasse erstellst
dort den Button importierst und die Paint Methode
überschreibst?

hallo Alex,

schön dich wieder mal zu lesen :smile:

Soso, eine Klasse erstellen, irgendwas importieren und Paint überschreiben.
Klingt irgenwie einfach. *hüstel*
Leider habe ich nicht die geringste Ahnung wie das gehen soll, aber lass es mal bitte mir zu erklären wie das geht, ich will es ja gar nicht wissen *gg*

Was völlig anderes, vielleicht kannst, oder hast Bock dazu, du ja Martin weiterhelfen,

/t/verschachteln-eigener-klassen-vba/5432205

Gruß
Reinhard