how to make

Printable View

Sep 28th, 2009, 04:33 PM
GsmHelp

1 Attachment(s)

how to make

how i make more simple this code :d ,please help me, i whant to declare one director what can be full path and filter extension. sory for my bad english.

Re: how to make

use an array of custom listItems, that have a displayString + an imageLocation member:

vb Code:

Public Class listItem
    Public displayString As String
    Public imageLocation As String
 
    Public Sub New(ByVal _displayString As String, ByVal _imageLocation As String)
        displayString = _displayString
        imageLocation = _imageLocation
    End Sub
 
    Public Overrides Function ToString() As String
        Return displayString
    End Function
 
End Class

vb Code:

Public Class Form1
    'i'm not sure i matched the models correctly with the image filenames,
    'but this shows you how its done.
    Dim items() As listItem = {New listItem("Nokia 1100", "c:\gsmhelp\img\1100.JPG"), New listItem("Nokia 1202", "c:\gsmhelp\img\1202.JPG"), New listItem("Nokia 1203", "c:\gsmhelp\img\1203.JPG"), New listItem("Nokia 1661", "c:\gsmhelp\img\1661.JPG"), New listItem("Nokia 1680", "c:\gsmhelp\img\1680.JPG"), New listItem("Nokia 2330c-2", "c:\gsmhelp\img\2330c-2.JPG"), New listItem("Nokia 2600c", "c:\gsmhelp\img\2600c.JPG"), New listItem("Nokia 2630", "c:\gsmhelp\img\2630.JPG"), New listItem("Nokia 2680s", "c:\gsmhelp\img\2680s.JPG"), New listItem("Nokia 2760", "c:\gsmhelp\img\2760.JPG"), New listItem("Nokia 3100c", "c:\gsmhelp\img\3100c.JPG"), New listItem("Nokia 3109c", "c:\gsmhelp\img\3109c.JPG"), New listItem("Nokia 3110c", "c:\gsmhelp\img\3110c.JPG"), New listItem("Nokia 3120c", "c:\gsmhelp\img\3120c.JPG"), New listItem("Nokia 3200", "c:\gsmhelp\img\3200.JPG"), New listItem("Nokia 3250", "c:\gsmhelp\img\3250.JPG"), New listItem("Nokia 3500c", "c:\gsmhelp\img\3500c.JPG"), New listItem("Nokia 3600s", "c:\gsmhelp\img\3600s.JPG"), _
    New listItem("Nokia 3650", "c:\gsmhelp\img\3650.JPG"), New listItem("Nokia 5000", "c:\gsmhelp\img\5000.JPG"), New listItem("Nokia 5100", "c:\gsmhelp\img\5100.JPG"), New listItem("Nokia 5130", "c:\gsmhelp\img\5130.JPG"), New listItem("Nokia 5200", "c:\gsmhelp\img\5200.JPG"), New listItem("Nokia 5220xm", "c:\gsmhelp\img\5220xm.JPG"), New listItem("Nokia 5300", "c:\gsmhelp\img\5300.JPG"), New listItem("Nokia 5310xm", "c:\gsmhelp\img\5310xm.JPG"), New listItem("Nokia 5320D", "c:\gsmhelp\img\5320D.JPG"), New listItem("Nokia 5500", "c:\gsmhelp\img\5500.JPG"), New listItem("Nokia 5610", "c:\gsmhelp\img\5610.JPG"), New listItem("Nokia 5630", "c:\gsmhelp\img\5630.JPG"), New listItem("Nokia 5700", "c:\gsmhelp\img\5700.JPG"), New listItem("Nokia 5800D", "c:\gsmhelp\img\5800d.JPG"), New listItem("Nokia 6060", "c:\gsmhelp\img\6060.JPG"), New listItem("Nokia 6085", "c:\gsmhelp\img\6085.JPG"), New listItem("Nokia 6101", "c:\gsmhelp\img\6101.JPG"), New listItem("Nokia 6110N", "c:\gsmhelp\img\6110n.JPG"), New listItem("Nokia 6111", "c:\gsmhelp\img\6111.JPG"), _
    New listItem("Nokia 6120", "c:\gsmhelp\img\6120.JPG"), New listItem("Nokia 6125", "c:\gsmhelp\img\6125.JPG"), New listItem("Nokia 6131", "c:\gsmhelp\img\6131.JPG"), New listItem("Nokia 5140", "c:\gsmhelp\img\5140.JPG"), New listItem("Nokia 6151", "c:\gsmhelp\img\6151.JPG"), New listItem("Nokia 6170", "c:\gsmhelp\img\6170.JPG"), New listItem("Nokia 6210S", "c:\gsmhelp\img\6210s.JPG"), New listItem("Nokia 6220c", "c:\gsmhelp\img\6220c.JPG"), New listItem("i wasn't sure about this 1", "c:\gsmhelp\img\6233.JPG"), New listItem("Nokia 6233", "c:\gsmhelp\img\6234.JPG"), New listItem("Nokia 6234", "c:\gsmhelp\img\6255.JPG"), New listItem("Nokia 6255", "c:\gsmhelp\img\6267.JPG"), New listItem("Nokia 6267", "c:\gsmhelp\img\6270.JPG"), New listItem("Nokia 6270", "c:\gsmhelp\img\6280.JPG"), New listItem("Nokia 6280", "c:\gsmhelp\img\6288.JPG"), New listItem("Nokia 6288", "c:\gsmhelp\img\6290.JPG"), New listItem("Nokia 6290", "c:\gsmhelp\img\6300.JPG"), New listItem("Nokia 6300", "c:\gsmhelp\img\6303c.JPG"), New listItem("Nokia 6303C", "c:\gsmhelp\img\6500c.JPG"), _
    New listItem("Nokia 6500C", "c:\gsmhelp\img\6500s.JPG"), New listItem("Nokia 6500S", "c:\gsmhelp\img\6555.JPG"), New listItem("Nokia 6555", "c:\gsmhelp\img\6600.JPG"), New listItem("Nokia 6600", "c:\gsmhelp\img\6600s.JPG"), New listItem("Nokia 6600S", "c:\gsmhelp\img\6610.JPG"), New listItem("Nokia 6610", "c:\gsmhelp\img\6620.JPG"), New listItem("Nokia 6620", "c:\gsmhelp\img\6630.JPG"), New listItem("Nokia 6630", "c:\gsmhelp\img\6650d.JPG"), New listItem("Nokia 6650D", "c:\gsmhelp\img\6680.JPG"), New listItem("Nokia 6680", "c:\gsmhelp\img\6681.JPG"), New listItem("Nokia 6681", "c:\gsmhelp\img\6700c-1.JPG"), New listItem("Nokia 6700c-1", "c:\gsmhelp\img\6820.JPG"), New listItem("Nokia 6820", "c:\gsmhelp\img\7070.JPG"), New listItem("Nokia 7070", "c:\gsmhelp\img\7100s.JPG"), New listItem("Nokia 7100S", "c:\gsmhelp\img\7210.JPG"), New listItem("Nokia 7210", "c:\gsmhelp\img\7210c.JPG"), New listItem("Nokia 7210C", "c:\gsmhelp\img\7250.JPG"), New listItem("Nokia 7250", "c:\gsmhelp\img\7370.JPG"), New listItem("Nokia 7370", "c:\gsmhelp\img\7390.JPG"), _
    New listItem("Nokia 7390", "c:\gsmhelp\img\7500.JPG"), New listItem("Nokia 7500", "c:\gsmhelp\img\7510s.JPG"), New listItem("Nokia 7510S", "c:\gsmhelp\img\7510a.JPG"), New listItem("Nokia 7510A", "c:\gsmhelp\img\7610s.JPG"), New listItem("Nokia 7610S", "c:\gsmhelp\img\7710.JPG"), New listItem("Nokia 7710", "c:\gsmhelp\img\7900.JPG"), New listItem("Nokia 7900", "c:\gsmhelp\img\8600.JPG"), New listItem("Nokia 8600", "c:\gsmhelp\img\8800.JPG"), New listItem("Nokia 8800", "c:\gsmhelp\img\9300.JPG"), New listItem("Nokia 9300", "c:\gsmhelp\img\9500.JPG"), New listItem("Nokia 9500", "c:\gsmhelp\img\E50.JPG"), New listItem("Nokia E50", "c:\gsmhelp\img\E51.JPG"), New listItem("Nokia E51", "c:\gsmhelp\img\E60.JPG"), New listItem("Nokia E60", "c:\gsmhelp\img\E61.JPG"), New listItem("Nokia E61", "c:\gsmhelp\img\E61i.JPG"), New listItem("Nokia E61i", "c:\gsmhelp\img\E63.JPG"), New listItem("Nokia E63", "c:\gsmhelp\img\E65.JPG"), New listItem("Nokia E65", "c:\gsmhelp\img\E66.JPG"), New listItem("Nokia E66", "c:\gsmhelp\img\E66i.JPG"), _
    New listItem("Nokia E66i", "c:\gsmhelp\img\E70.JPG"), New listItem("Nokia E70", "c:\gsmhelp\img\E71.JPG"), New listItem("Nokia E71", "c:\gsmhelp\img\E90.JPG"), New listItem("Nokia E90", "c:\gsmhelp\img\N70.JPG"), New listItem("Nokia N70", "c:\gsmhelp\img\N71.JPG"), New listItem("Nokia N71", "c:\gsmhelp\img\N73.JPG"), New listItem("Nokia N73", "c:\gsmhelp\img\N75-3.JPG"), New listItem("Nokia N75-3", "c:\gsmhelp\img\N76.JPG"), New listItem("Nokia N76", "c:\gsmhelp\img\N77.JPG"), New listItem("Nokia N77", "c:\gsmhelp\img\N78.JPG"), New listItem("Nokia N78", "c:\gsmhelp\img\N79.JPG"), New listItem("Nokia N79", "c:\gsmhelp\img\N80.JPG"), New listItem("Nokia N80", "c:\gsmhelp\img\N81.JPG"), New listItem("Nokia N81", "c:\gsmhelp\img\N82.JPG"), New listItem("Nokia N82", "c:\gsmhelp\img\N85.JPG"), New listItem("Nokia N85", "c:\gsmhelp\img\N90.JPG"), New listItem("Nokia N90", "c:\gsmhelp\img\N91.JPG"), New listItem("Nokia N91", "c:\gsmhelp\img\N92.JPG"), New listItem("Nokia N92", "c:\gsmhelp\img\N92-1.JPG"), New listItem("Nokia N92-1", "c:\gsmhelp\img\N93.JPG"), _
    New listItem("Nokia N93", "c:\gsmhelp\img\N93i.JPG"), New listItem("Nokia N93i", "c:\gsmhelp\img\N95.JPG"), New listItem("Nokia N95", "c:\gsmhelp\img\N95-8G.JPG"), New listItem("Nokia N95-8G", "c:\gsmhelp\img\N96-1.JPG"), New listItem("Nokia N96-1", "c:\gsmhelp\img\n-gage.JPG"), New listItem("Nokia N-GAGE", "c:\gsmhelp\img\5100.JPG")}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(items)
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        'PictureBox5.Image = System.Drawing.Image.FromFile _
        '          (DirectCast(ComboBox1.SelectedItem, listItem).imageLocation)
 
        Debug.Print(DirectCast(ComboBox1.SelectedItem, listItem).imageLocation)
 
    End Sub
End Class

Sep 28th, 2009, 06:34 PM
i00

Re: how to make

woah ... ok well have you considered loading the data from a database ?...

Kris
Sep 28th, 2009, 07:10 PM
Tom.Net

Re: how to make

How about an xml file to store and load the data.
Sep 28th, 2009, 11:48 PM
GsmHelp

Re: how to make

Quote:

Originally Posted by i00

woah ... ok well have you considered loading the data from a database ?...

Kris

Quote:

Originally Posted by Tom.Net

How about an xml file to store and load the data.

any tutorial for beginers have sir, :)
Sep 28th, 2009, 11:57 PM
GsmHelp

Re: how to make

Quote:

Originally Posted by .paul.

use an array of custom listItems, that have a displayString + an imageLocation member:

End Sub
End Class[/HIGHLIGHT]

sir i get this error thanks for your time have any totorial becose now i start to learn , :(

Warning 1 'Public Sub New(_displayString As String, _imageLocation As String)' in designer-generated type 'WindowsApplication1.listItem' should call InitializeComponent method. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 6 16 WindowsApplication1

Error 2 Event 'Load' cannot be found. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 28 103 WindowsApplication1

Error 3 Name 'ComboBox1' is not declared. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 29 9 WindowsApplication1

Error 4 Handles clause requires a WithEvents variable defined in the containing type or one of its base types. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 32 116 WindowsApplication1

Error 5 Name 'ComboBox1' is not declared. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 37 32 WindowsApplication1

Error 6 'listItem' is a type in 'WindowsApplication1' and cannot be used as an expression. D:\Documents and Settings\GsmHelp\Local Settings\Application Data\Temporary Projects\WindowsApplication1\My Project\Application.Designer.vb 35 27 WindowsApplication1
Sep 29th, 2009, 06:29 AM
Tom.Net

Re: how to make

To give a general example, you can create a Typed Dataset, within the dataset create add a table (tblPhones) and add two column (Model, PhotoPath). You can then add all your existing records as new rows to the table.

After this is done, you simple have to call the dataset.WriteXml("YourFilePath.FileName.xml) method and it will export everything to the xml file. Loading the file is as easy, dataset.LoadXml("YourFilePath.FileName.xml)

Now not only is the export and import easy, the records are now associated so that when bound to controls, as soon as they click on a model the picture in the same record can automatically been shown in the picture box.

If you need help with the actual coding of it just let me know but everything is fairly simple and available in the help file.
Sep 29th, 2009, 06:53 AM
tsungik

Re: how to make

Tom.Net,

Go on and show the code.
Sep 29th, 2009, 06:57 AM
Tom.Net

1 Attachment(s)

Re: how to make

I created & attached the xml file for you. Now you just have to load it to a dataset and bind the records to your controls.

But should be real easy....

Dim ds as New Dataset
ds.LoadXml(FilePath & "PhoneInfo.xml)
ComboBox1.DataSource = ds.Tables("tblPhones")
ComboBox1.DisplayMember = "Model"
ComboBox1.ValueMember = "PhoneId"

That its, all done. Then in the combobox selected indexchanged event (after initial loading) just set it to display the picture of what ever record is selected.
Sep 29th, 2009, 07:00 AM
tsungik

Re: how to make

To make it more flexible, provide a way that the XML file can be modified in case new Phone Models come in or Phone model is already obsolete.
Sep 29th, 2009, 07:00 AM
Tom.Net

Re: how to make

The dataset should actually be declared at form level so that you can see it from other events on the form.
Sep 29th, 2009, 07:02 AM
Tom.Net

Re: how to make

Quote:

Originally Posted by tsungik

To make it more flexible, provide a way that the XML file can be modified in case new Phone Models come in or Phone model is already obsolete.

Thats the great part it is very flexible and easy to add records. To create the file, I put a few lines of code to add all the records from the combbox to the dataset, very easy. Also the file itself can be edited directly, just open in Notepad or something similar.
Sep 29th, 2009, 07:05 AM
Tom.Net

Re: how to make

Example of adding new records

Code:

Dim rowNew As DataRow = Nothing rowNew = m_ds.Tables("tblPhone").NewRow rowNew("Model") = strNewModelName rowNew("Photo") = strNewPhotoPath m_ds.Tables("tblPhone").Rows.Add(newRow) m_ds.WriteXml("FilePathAndFileName.xml")
Sep 29th, 2009, 07:08 AM
tsungik

Re: how to make

GsmHelp,

Now that Tom.Net provided some codes, probably you have now an idea how to solve your issue.