| |

VB.NET - Ein- und UmsteigerCode umwandeln von Vb6 in Vb.Net | |  | Autor: MadTrinity | Datum: 23.03.06 10:05 |
| Hallo Leute,
wollte ein Karten Spiel (UN....) in vb.net Coden da ich aber noch eher zu den Anfängern gehöre habe ich im Netz nach nem Beispiel gesucht und eins in VB6 gefunden.
Leider hapert es schon beim erstellen eines Benutzersteuerelement da einiges im Code so nicht von VB.Net unterstützt wird. Kann mir vielleicht einer Helfen den unten aufgeführten Code von VB6 funktionsfähig in VB.Net umzuwandeln
Code ausschnitt
Private Declare Function GetTextFace Lib "gdi32" Alias "GetTextFaceA" (ByVal _
hdc As Long, ByVal nCount As Long, ByVal lpFacename As String) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal _
crColor As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As _
Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount _
As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect _
As RECT) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal LParam As Long) _
As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long Folgende Code ausschnitte in VB6 Funktionieren nicht in VB.Net
UserControl.Cls() 'kein Member von UserControl
UserControl.ForeColor 'kein Member von UserControl
UserControl.FontSize 'kein Member von UserControl
UserControl.FontName 'kein Member von UserControl
UserControl.TextWidth 'kein Member von UserControl
UserControl.TextHeight 'kein Member von UserControl
UserControl.Picture 'kein Member von UserControl
UserControl.Image 'kein Member von UserControl
UserControl.DrawWidth 'kein Member von UserControl
UserControl.Line 'kein Member von UserControl
UserControl.hDC 'kein Member von UserControl
UserControl.hWnd 'kein Member von UserControl
vbUnicode 'wurde nicht Deklariert
Private karte as Any 'Any wird nicht unterstützt Wollte eigentlich den ganzen Code zur besseren Verständigung Posten aber der ist zu lang
Aber ich kann den euch per Mail senden
Vielen Dank vorab
Gruß
MadTrinity
Wer Rechtschreibfehler findet darf Sie behalten |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|