omskrivning af vb code

Du kunne jo starte med at skrive hvad du forsøger på, præcis hvilken fejl der kommer, og de linjer kode der udløser fejlen.

Det er en kendt sag, at konverterings wizarden fra VB6 til VB .NET ikke altid kan konvertere så det kan køre direkte. Specielt hvis der bruges Windows API funktioner.

Du må gerne prøve at sende det til mig - hvis det kun er en lille fejl, kan jeg rette det, men hvis det er noget der tager længere tid må du selv i gang med at rette.
driis@mobilixnet.dk

Du lærer nok mest af at vise os den del af koden, der fejler, her og lade eksperterne guide dig på vej.

email sendt...

Det er noget med en funktion, eller noget der fejler.


Upgrade Issues for Form1.frm:
# Severity Location Object Type Object Name Property Description
1 Compile Error CharacterMovements Form Form1 PaintPicture Form method Form1.PaintPicture was not upgraded.
2 Compile Error DrawIt Form Form1 CurrentX Form property Form1.CurrentX was not upgraded.
3 Compile Error DrawIt Form Form1 CurrentY Form property Form1.CurrentY was not upgraded.
4 Compile Error DrawIt Form Form1 Line Form method Form1.Line was not upgraded.
5 Compile Error DrawIt Form Form1 PaintPicture Form method Form1.PaintPicture was not upgraded.
6 Compile Error DrawIt Form Form1 Print Form method Form1.Print was not upgraded.
7 Compile Error Form_Load CommandButton Command1 MouseIcon CommandButton property Command1.MouseIcon was not upgraded.
8 Compile Error Form_Load CommandButton Command2 MouseIcon CommandButton property Command2.MouseIcon was not upgraded.
9 Compile Error Form_Load Form Form1 MouseIcon Form property Form1.MouseIcon was not upgraded.
10 Compile Error Form_Load PictureBox Picture1 MouseIcon PictureBox property Picture1.MouseIcon was not upgraded.
11 Compile Error Form_Load PictureBox Picture2 MouseIcon PictureBox property Picture2.MouseIcon was not upgraded.
12 Compile Error Form_Load PictureBox Picture3 Line PictureBox method Picture3.Line was not upgraded.
13 Compile Error Form_Load PictureBox Picture3 MouseIcon PictureBox property Picture3.MouseIcon was not upgraded.
14 Compile Error Form_Load PictureBox Picture4 MouseIcon PictureBox property Picture4.MouseIcon was not upgraded.
15 Compile Error Form_Load PictureBox Picture5 MouseIcon PictureBox property Picture5.MouseIcon was not upgraded.
16 Compile Error PictureHandler Form Form1 PaintPicture Form method Form1.PaintPicture was not upgraded.
17 Compile Error Timer2_Timer  vbFSTransparent Constant vbFSTransparent was not upgraded.
18 Compile Error Timer2_Timer  vbSolid Constant vbSolid was not upgraded.
19 Compile Error Timer2_Timer PictureBox Picture7 Circle PictureBox method Picture7.Circle was not upgraded.
20 Compile Error Timer2_Timer PictureBox Picture7 CurrentX PictureBox property Picture7.CurrentX was not upgraded.
21 Compile Error Timer2_Timer PictureBox Picture7 CurrentY PictureBox property Picture7.CurrentY was not upgraded.
22 Compile Error Timer2_Timer PictureBox Picture7 DrawMode PictureBox property Picture7.DrawMode was not upgraded.
23 Compile Error Timer2_Timer PictureBox Picture7 FillColor PictureBox property Picture7.FillColor was not upgraded.
24 Compile Error Timer2_Timer PictureBox Picture7 FillStyle PictureBox property Picture7.FillStyle was not upgraded.
25 Compile Error Timer2_Timer PictureBox Picture7 Print PictureBox method Picture7.Print was not upgraded.
26 Compile Error Timer2_Timer PictureBox Picture7 vbCopyPen Constant vbCopyPen was not upgraded.
27 Compile Error Timer2_Timer PictureBox Picture7 vbXorPen Constant vbXorPen was not upgraded.
28 Design Error (Layout) CommandButton Command1 MousePointer CommandButton property Command1.MousePointer does not support custom mousepointers.
29 Design Error (Layout) CommandButton Command2 MousePointer CommandButton property Command2.MousePointer does not support custom mousepointers.
30 Design Error (Layout) Form Form1 AutoRedraw Form property Form1.AutoRedraw was not upgraded.
31 Design Error (Layout) Form Form1 MouseIcon Form property Form1.MouseIcon was not upgraded.
32 Design Error (Layout) Form Form1 MousePointer Form property Form1.MousePointer does not support custom mousepointers.
33 Design Error (Layout) Form Form1 ScaleMode Form property Form1.ScaleMode is not supported.
34 Design Error (Layout) PictureBox Picture1 MousePointer PictureBox property Picture1.MousePointer does not support custom mousepointers.
35 Design Error (Layout) PictureBox Picture1 ScaleMode PictureBox property Picture1.ScaleMode was not upgraded.
36 Design Error (Layout) PictureBox Picture2 MousePointer PictureBox property Picture2.MousePointer does not support custom mousepointers.
37 Design Error (Layout) PictureBox Picture3 AutoRedraw PictureBox property Picture3.AutoRedraw was not upgraded.
38 Design Error (Layout) PictureBox Picture3 MousePointer PictureBox property Picture3.MousePointer does not support custom mousepointers.
39 Design Error (Layout) PictureBox Picture3 ScaleMode PictureBox property Picture3.ScaleMode was not upgraded.
40 Design Error (Layout) PictureBox Picture4 MousePointer PictureBox property Picture4.MousePointer does not support custom mousepointers.
41 Design Error (Layout) PictureBox Picture4 ScaleMode PictureBox property Picture4.ScaleMode was not upgraded.
42 Design Error (Layout) PictureBox Picture5 MousePointer PictureBox property Picture5.MousePointer does not support custom mousepointers.
43 Design Error (Layout) PictureBox Picture5 ScaleMode PictureBox property Picture5.ScaleMode was not upgraded.
44 Design Error (Layout) PictureBox Picture6 ScaleMode PictureBox property Picture6.ScaleMode was not upgraded.
45 Design Error (Layout) PictureBox Picture7 AutoRedraw PictureBox property Picture7.AutoRedraw was not upgraded.

Jeg syntes du sagde at konverteringen ikke meldte om fejl ? For mig at se, ligner det alt sammen problemer med konverteringen, og ikke med compileringen.

ja, sorry... Jeg opdagede lige at der er paintpicture der ikke er mere... og faktisk mange af de poicture ting der ikke fungere..

Er der en eller anden der har et link til noget tilsvarende, bare til vb.net???


Det jeg gerne vil er:


kunne tegne "kortet" med bogstaver...

Og så bliver "kortet" omdannet til hvor man må bevæge sig, osv....

og så kunne rykke min "mand" rundt...

HJÆLP

Jeg tror du ville være bedre tjent med at lave det fra bunden af i VB.NET, mens du bruger ideen, osv. fra den eksisterende VB6 kode.

Som du selv skriver, er der meget i håndteringen af billeder, der har ændret sig. Selvfølgelig kan det konverteres men det kommer til at kræve meget arbejde.

okay...

Kan du så bare hjælpe mig med hvordan man laver et "map", hvis du forstår... Jeg går ikke ud fra at jeg skal lave picture felter for hver 16*16 , hvis du forstår?

Jeg ville gøre det på den måde, at jeg lader formens baggrund være det billede, som det hele skal rykkes rundt på. Så skal du have et antal PictureBox eller lign. objekter, som du kan rykke rundt på baggrunden.

Det var også det jeg tænkte jeg ville lave... Men på den måde kan jeg jo ikke lave "kortet" via en text variabel... hvis du forstår... Der må da være en subsitut for paintpicture...

Der her er MEGET langt fra et spil. Men håber at du kan bruge det.

' Når Form1 er loadet skal TegnKort() fyres af

    Dim GFXLib As String = Application.StartupPath & "\gfx\" ' Lib hvor du gemmer dine 16*16 BMPer

    ' Felt deminsion
    Dim TilePxSize As Integer = 16 ' = 16*16 pixel

    ' kort deminsioner
    Dim MapSizeY As Integer = 30
    Dim MapSizeX As Integer = 30

    Dim Image_A As Bitmap ' Mand bmp
    Dim Image_B As Bitmap ' Gulv bmp

    Dim gr As Graphics = Me.CreateGraphics ' Din grafiske flade til at tegne på

    Dim Pos_X As Integer = 0 ' mand X position
    Dim Pos_Y As Integer = 0 ' mand Y position

    ' LOAD
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Image_A = Bitmap.FromFile(GFXLib & "A.bmp") ' A.bmp er din mande BMP
        Image_B = Bitmap.FromFile(GFXLib & "B.bmp") ' B.bmp er dit gulv BMP
    End Sub

    ' taste tryk
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        Select Case e.KeyValue
            Case 38 ' Nord
                Pos_Y -= TilePxSize
            Case 39 ' Øst
                Pos_X += TilePxSize
            Case 40 ' Syd
                Pos_Y += TilePxSize
            Case 37 ' Vest
                Pos_X -= TilePxSize
        End Select

        TegnKort() ' tegn kortet

    End Sub

    ' tegn kort
    Function TegnKort()
        ' tegn gulv
        Dim i As Integer
        Dim ii As Integer

        ' du vil nok tegne dit kort udfra er 2d array (eller en fil) men det gør vi ikke her :)
        ' kortet er 20 * 20 felter
        For i = 1 To MapSizeY
            For ii = 1 To MapSizeX
                gr.DrawImage(Image_B, (i * TilePxSize) - TilePxSize, (ii * TilePxSize) - TilePxSize)
            Next
        Next

        ' tegn mand oven på gulv
        gr.DrawImage(Image_A, Pos_X, Pos_Y)

    End Function

Jeg har givet samme svar i "grid hvordan?".
Det var vist der det hørte hjemme :)

okay... Men hvad med muligheden for at bruge et array som kort???? og dine rykke funktion er da ikke optimal, da man ikke kan holde knappen inde... Men jeg kigger lige engagn til på det.

Eksemplet var på ingen måde ment som optimalt. Men at programere spil er ikke lige ferm et lille emne og du skal jo begynde et sted. Så kan vi altid diskutere C++ og DirectX senere :)