Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 3632

Jul 20th, 2008

Upload picture from file

Expand Post »

Hi!

I'm trying to make a coin toss program using a random generator, but i'm not sure how to upload the image of the heads and tails from its file on my PC. Image names are Tails.gif and Heads.gif . Here's the code so far:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Class Form1
    Dim headCount As Integer
    Dim tailCount As Integer
    Dim choice As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblHeadCt.Text = "Heads: " & Str(headCount)
        lblTailCt.Text = "Heads: " & Str(tailCount)
    End Sub
 
    Private Sub cmdFlip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFlip.Click
        Randomize()
        choice = Int(Rnd() * 2)
 
        If choice = 0 Then
            headCount = headCount + 1
            imgCoin = Image.FromFile()
        Else
            tailCount = tailCount + 1
            imgCoin =
        End If
 
End Sub
End Class
Public Class Form1
    Dim headCount As Integer
    Dim tailCount As Integer
    Dim choice As Integer
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblHeadCt.Text = "Heads: " & Str(headCount)
        lblTailCt.Text = "Heads: " & Str(tailCount)
    End Sub

    Private Sub cmdFlip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFlip.Click
        Randomize()
        choice = Int(Rnd() * 2)
      
        If choice = 0 Then
            headCount = headCount + 1
            imgCoin = Image.FromFile()
        Else
            tailCount = tailCount + 1
            imgCoin =
        End If
    
End Sub
End Class

Thank you

Last edited by Tekmaven; Jul 20th, 2008 at 3:57 pm. Reason: Code tags

Similar Threads

how to put uploading picture to the application database. in Visual Basic 4 / 5 / 6
Problems with file upload in PHP
Get data out of excel file stored as an image in MS SQL
Uploading progress in PHP
Allow User To Upload A Picture in JSP

sddproject

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Feb 2008

Permalink

Jul 21st, 2008

Re: Upload picture from file

Hi,
First, this is not VB6 code. It is VB.Net.
To load an image, you must code:

VBNET Syntax (Toggle Plain Text)
        Dim coinImage As Image
        Dim imagePath As String = ""
 
        If choice = 0 Then
            headCount = headCount + 1
            imagePath = "Heads.gif"
        Else
            tailCount = tailCount + 1
            imagePath = "Tails.gif"
        End If
 
        ' Here you have your image loaded in coinImage
        coinImage = New Bitmap(imagePath)
        Dim coinImage As Image
        Dim imagePath As String = ""

        If choice = 0 Then
            headCount = headCount + 1
            imagePath = "Heads.gif"
        Else
            tailCount = tailCount + 1
            imagePath = "Tails.gif"
        End If

        ' Here you have your image loaded in coinImage
        coinImage = New Bitmap(imagePath)

Then, if you want to put the image in a PictureBox, you must write:

VBNET Syntax (Toggle Plain Text)

PictureBox1.Image = coinImage

Hope it helps

Last edited by dmf1978; Jul 21st, 2008 at 4:39 pm.

dmf1978

Reputation Points: 18

Solved Threads: 7

Junior Poster in Training

Offline

51 posts
since Aug 2006

Permalink

Jul 24th, 2008

Re: Upload picture from file

Hi,
Is your problem solved?

dmf1978

Reputation Points: 18

Solved Threads: 7

Junior Poster in Training

Offline

51 posts
since Aug 2006

Permalink

Jul 26th, 2008

Re: Upload picture from file

thank you!

sddproject

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Feb 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Difficulty in reading data thru Com port

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Need to separate 16 bit binary to 4bit and 12 bit binary values

DaniWeb Message

Cancel Changes

User Name
Password