vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Code 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

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Code umwandeln von Vb6 in Vb.Net1.254MadTrinity23.03.06 10:05
Re: Code umwandeln von Vb6 in Vb.Net525ModeratorFZelle23.03.06 11:51

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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