Visual Basic

14-Dec-06 5:59

I have an object

Public Class Plateobj<br />
        Public Order As String<br />
        Public Row As String<br />
        Public Column As String<br />
    End Class

I want to create an array of the Plateobj's

Dim plateinfo() As Plateobj

And then refrence them as follow

plateinfo(0).Order = "One"

But I get the following error "Object refrence not set to an instance of an object"

I guess I am doing something daft, any clues welcome

Ta Very Much

Kevin Nicol14-Dec-06 6:56

Kevin Nicol

14-Dec-06 6:56

you still have to initialize the object as follows

<br />
Public Class Plateobj<br />
Public Order As String<br />
Public Row As String<br />
Public Column As String<br />
End Class<br />
<br />
Dim plateinfo() As Plateobj<br />
<br />
'*****<br />
plateinfo(0) = new plateobj()<br />
'*****<br />
<br />
plateinfo(0).Order = "One"<br />
<br />
<br />

Geoff_300114-Dec-06 7:19

14-Dec-06 7:19

Kevin,

Thanks tried that and still get the same error (on the initalise).

Geoff

Kevin Nicol14-Dec-06 7:22

Kevin Nicol

14-Dec-06 7:22

try this

<br />
'declare the array<br />
dim plateInfo() as Plateobj<br />
<br />
'set its bounds<br />
redim plateInfo(10)<br />
<br />
'initialze the array item<br />
plateinfo(0) = new Plateobj()<br />
<br />
'now work with it<br />
plateInfo(0).order = "One"<br />
<br />

SpartanSoft14-Dec-06 7:58

SpartanSoft

14-Dec-06 7:58

Are the objects in the area always going to be Plateobj? If so you should consider using Generics. Kinds Pseudo Code...

in C#,

List<plateobj> LobjList = new List<plateobj>();
LobjList.Add(new Plateobj());
LobjList[0].order = "One;

Christopher Pond
Innovative Technology Solutions
SpartanSoft.net.

Geoff_300114-Dec-06 8:24

14-Dec-06 8:24

Um I suspect I will end up with other object as I am reading data from oracle and flat data file and writing updates back.

I will give it a go though, knowledege is power as they say.

Thanks
Geoff

Geoff_300114-Dec-06 8:15

14-Dec-06 8:15

AaaaHa

It works thanks, maybe the day was not wasted

Cheers
Geoff

jchigg200015-Dec-06 9:12

jchigg2000

15-Dec-06 9:12

Use a Collection!

Tags / Attributes ?

Xaverian14-Dec-06 5:48

Xaverian

14-Dec-06 5:48

Ok, out of fear of getting flamed for a question that I should probably know the answer too, I'm going to post it anyways ...

I read articles from time to time, like this one:
http://www.codeproject.com/aspnet/CC_MultiMediaControl.asp

What are (I believe them to be attributes) before the declaration of the property, and what are they used for ... we never covered this in school, at least not yet.

IE:
<Category("Media Player")> _
<Browsable(True)> _
<Description("Show or hide the tracker.")>_
Public Property ShowTracker() As Boolean
Get
Return mShowTracker
End Get
Set(ByVal value As Boolean)
mShowTracker = value
End Set
End Property

Cheers,
Xaverian

Daniel Grunwald14-Dec-06 6:37

Daniel Grunwald

14-Dec-06 6:37

These attributes are for design time support on your user control - they control the way the property shows in Visual Studio's (or SharpDevelop's) property grid when you put the control on a form using the forms designer.
Category: the category the property appears in (if sort by categories is active)
Browsable: Whether the property is visible in the property grid.
Description: The description shown below the property grid.

Xaverian14-Dec-06 6:42

Xaverian

14-Dec-06 6:42

Thank you! I thought thats what they were, but wasn't sure, no one has ever explained it to me before. I can see where these can be usefull.

Is there somewhere else that I can learn more about additional attributes that are available? I've seen other attributes used as well, especially the "<serializable>" attribute.

Thanks again!

SpartanSoft14-Dec-06 8:35

SpartanSoft

14-Dec-06 8:35

http://www.ondotnet.com/pub/a/dotnet/excerpt/prog_csharp_ch18/index.html?page=1[^]

Reflection is key to understanding attributes.

Christopher Pond
Innovative Technology Solutions
SpartanSoft.net.

extract images from MHT file

Xaverian14-Dec-06 8:45

Xaverian

14-Dec-06 8:45

Thank you ...

I can see why the old cliche' of "10 years to pro" so relates to programming ... there is so much to know!

Thank you agian!

michaelo1114-Dec-06 5:10

michaelo11

14-Dec-06 5:10

Hi,

I have an MHT file with few images have been stored inside.
MHT file has been created by IE and I think it is correct.

Header of every image looks like this:

The body looks like this:

------=_NextPart_000_0018_01C651FB.1F763700
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: file:///C:/Documents%20and%20Settings/GGG/Desktop/RRR%20SKINS/MaT/1-lo.gif

R0lGODlhNAAUAMQAAAAAAP///3TAQ93d3czMzLu7u6qqqpmZmYiIiHd3d2ZmZlVVVURERDMzMyIi
IhEREf///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEA
ABAALAAAAAA0ABQAAAWpYCCOZGmeaKqubOu+cCzPdG2fwq2TuXkwtEIDAGAMToMF7vSbDR4JEcNx
KlBNvVJzNBgCEIEuYEhCKEcOA0IRBgSIwFKWtBUpgAXAQKFEuEcKYCMMB2ttAVZLPnFSByIOBYSH
I2YkaYYDbolYTIwBd4gABHwBfiRPglOlQKabckxERAdiX2FDZCQEXkZhDkVumZ4icy+kCA87NgS+
D47Jz9DR0tPU1dYwIQA7

I use the function URLDownloadToFile for extracting of images and saving on the disk:

file_path=mhtml Big Grin | :-D

:/nnn/Copy of Skin\example.mht
full_name=file://C:\Documents and Settings\GGG\Desktop\RRR SKINS\Mat\1-lo.gif
res = URLDownloadToFile(0, file_path & "!" & full_name, absTargetPath & "\" & FileName, 0, 0)

It worked with IE6 ok. I receive error res=-2147467259 (the file was not found) in IE7 and file cann't be extracted.

Could somebody help me please to solve this problem?
Thanks

mask format for an IP address

charchabil0314-Dec-06 3:55

charchabil03

14-Dec-06 3:55

having a text box which designate a 'ip address'
how can i check if the user has entered a valid ip address,
and not a string or ...
is there a format in the 'MaskedTextBox' for that ?

and what is the datatype of the field should be in the databsae?
regards

Regards
Ramy

nlarson1114-Dec-06 4:12

nlarson11

14-Dec-06 4:12

1) valid format -- check it "manually" though code -- i don't know if the maskedtextbox or regular expressions can put a limit on the number(<=255)within each segment.
2) valid ip -- if your using 2005 - you can ping it
3) datatype -- string

charchabil0314-Dec-06 5:14

charchabil03

14-Dec-06 5:14

valid format -- check it "manually" though code

and how is that??? :S

Regards
Ramy

nlarson1114-Dec-06 5:49

nlarson11

14-Dec-06 5:49

Dim sIP As String = "192.168.0.1"
Dim sa() As String = sIP.Split(".")

If sa.Length <> 4 Then
MsgBox("invalid ip")
Exit Sub
End If

For i As Int16 = 0 To sa.GetUpperBound(0)
If Not IsNumeric(sa(i)) OrElse CInt(sa(i)) > 255 OrElse CInt(sa(i)) < 0 Then
MsgBox("invalid ip")
Exit Sub
End If
Next

charchabil0315-Dec-06 6:13

charchabil03

15-Dec-06 6:13

thx solved

Regards
Ramy