Visual Basic

Fulmine wrote:

I know i'm going to hurt you!

Fulmine wrote:

But this is a console example! I'm a beginner!

Jesus Loves

<marquee direction="up" height="40" scrolldelay="1" step="1" scrollamount="1" style="background:#aabbcc;border-bottom:thin solid 1px #6699cc">
--Owner Drawn
--Nothing special
--Defeat is temporary but surrender is permanent
--Never say quits
--Jesus is Lord

Serpiente wrote:

Sorry new project, new question.

I need to show a group of images from a Directory,
then the size of image is variable,
is necesary capture some data so,
if the picture is small no problem,
but if the pic es big the user need to surf on the pic.

Public Sub t_Main()<br />
<br />
        'declare the variables<br />
        Dim a1(16) As Char<br />
        Dim a2(16) As Char<br />
        Dim tempWRITE As Integer<br />
<br />
        'use streamreader to open file<br />
        Dim fs As StreamReader = New StreamReader("c:/test.bin")<br />
        'read file into a1<br />
        fs.Read(a1, 0, 16)<br />
        fs.Close()<br />
<br />
<br />
<br />
<br />
        a2(0) = a1(3)<br />
        a2(1) = a1(2)<br />
        a2(2) = a1(1)<br />
        a2(3) = a1(0)<br />
        a2(4) = a1(5)<br />
        a2(5) = a1(6)<br />
        a2(6) = a1(4)<br />
        a2(7) = a1(7)<br />
        a2(8) = a1(9)<br />
        a2(9) = a1(11)<br />
        a2(10) = a1(8)<br />
        a2(11) = a1(10)<br />
        a2(12) = a1(14)<br />
        a2(13) = a1(12)<br />
        a2(14) = a1(15)<br />
        a2(15) = a1(13)<br />
<br />
        'use streamwriter to write file<br />
        Dim sw As StreamWriter = New StreamWriter("c:/new.txt")<br />
        'write a2 to file<br />
        sw.Write(Convert.ToString(a2), 0, 16)<br />
        sw.Close()<br />
<br />
    End Sub