Visual Basic Discussion Boards

RichardGrimmer29-Sep-04 2:52

29-Sep-04 2:52

I would guess that this behaviour is by design. A Double datatype is only capable of storing a NUMBERIC value. A comma is not a number, and hence it cannot be stored.

Only way to represent the comma is to store it in a string

"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox

Winsock control

mohan_balal28-Sep-04 22:38

mohan_balal

28-Sep-04 22:38

Now,
I put two winsock controls in Form.
Here is my Form Load code:

Dim cnt, cnt1
cnt = 0

For i = 1 To List1.ListCount
Load Winsock1(i)
Winsock1(i).LocalPort = List1.List(cnt)
Winsock1(i).Listen
For j = 1 To List1.ListCount
cnt1 = cnt + 1
Winsock2(j).LocalPort = List1.List(cnt1)
Winsock2(j).Listen
Next
MsgBox List1.List(cnt)
cnt = cnt + 1
Next
Error is:
Run-time Error "438"
Object doesn't support this Property and Method.

Mybe Problem is Index Value of Both winsock1 and winsock2 controls.

I want to First Port Number Open and Listen by winsock1(i) then second Port Number open and Listen by Winsock2(j).

Please send me Reply soon

Mohan

Confused | :confused:

Mohan Balal

Re: Winsock control

Dave Kreskowiak29-Sep-04 6:01

Dave Kreskowiak

29-Sep-04 6:01

You didn't say what line the error occured on. But, I'll take a guess and say that .List() is not a member of List1. You don't say what List1 is so I really can't tell you what to do to correct it.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

leWinsock Control Array

mohan_balal28-Sep-04 19:08

mohan_balal

28-Sep-04 19:08

I create control array of Winsock control, while compile it Gives an Error:

This is my code in Form Load event

rs.Open "select * from port_table", cn, adOpenKeyset, adLockOptimistic
While Not rs.EOF
List1.AddItem rs!portno
rs.MoveNext
Wend
rs.Close

Dim cnt
cnt = 0
For i = 1 To List1.ListCount
Load Winsock1(i)
Winsock1(i).LocalPort = List1.List(cnt)
Winsock1(i).Listen
MsgBox List1.List(cnt)
cnt = cnt + 1
Next

In this line It gives Error:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Error:
Compile Error:
Procedure declaration error as type doesn't match description of event or procedure having the same name

-------------------------
I want to open and Listen all the Ports which are store in the (Port_table) table. Then communicate with all the Ports.

Please Help me as soon as Possible.

Thanks
Mohan
Confused | :confused:

Mohan Balal

Re: leWinsock Control Array

Jose Cezar S. Ynion28-Sep-04 20:17

Jose Cezar S. Ynion

28-Sep-04 20:17

Set the index property of your winsock control to 0 then modify the function delaration with this one:

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)

adding a checkbox in a cell of MsFlexGrid

28-Sep-04 18:56

Hi,

I am developing a custom control in VB.net. For that i am using MsFlexGrid in Windows form.
I added the rows in the FlexGrid at run time and at the same time added checkboxes in 0th column of each row.
But when the number of rows increases more than size of FlexGrid the scroll Bar appears. When i scroll the vertical scroll bar,the rows scroll accordingly but the check boxes are fixed. They don not move along with the cells they are placed in.

Please help. Confused | :confused:

Lata

how to display data in specific textbox when users select any item from list box

Steve Beo28-Sep-04 17:29

Steve Beo

28-Sep-04 17:29

i try to code in web application, i mean 'code behind'. but it doesnt display anything when i click on items

slect = lstmilestone.selectedITem.Value
stSQL="select staffid, lastname, firstname, email "
stSQL &=" from staff "
stSQL &=" where staffId = " & slect
try
mlstonecommand = new oledb.oledbcommand()
with mlstonecommand
.connection = new oledb.oledbconnection(connstr)
.connection.open()
.commandText = stSQL
lstoneDreader = .ExecuteReader(ComandBehavior.SingleRow)
End with

if mlstoneDreader.Read()
with mlstoneDreader
txtid.text = .item("staffID").tostring
txtmlname.text = .item("Firstname").Tostring
txtdesc.text = .item("LastName").ToString
End if

could anyone help me to figure out the problems.

thanks in advance

Custom data types in vb.net

PatrickGoettert28-Sep-04 16:24

PatrickGoettert

28-Sep-04 16:24

Hi, first of all sorry for my bad english as I am brazilian...
I want to know how to do something i was very used to in Vb6: custom types that has custom types in it , like in:

Public Type LowerLevel
Dim Value(1 to 100) as integer
End type

Public Type UpperOne
Dim UnderOneLevel (1 to 1000) as LowerLevel
End Type

public MyVariable(1 to 10) as UpperOne

By doing so, I was able to use the variable Myvariable(1 to 10).UnderOnelevel(1 to 1000).Value(1 to 100)... So i could type:
Myvariable(1).UnderOnelevel(555).Value(32) = 123 with no problems at all

Now the Big VB.Net question: How do I do that in .net?
It´s not as simple as it seems, because the structure (that substitutes "type" in .net") cannot have the "arrays" of integer with a declared size in the structure, so:
Public Structure LowerLevel
friend Value(100) as integer
End type
would be invalid because of the "100" in it. Anyway,
Public Structure LowerLevel
friend Value() as integer
End type
would be OK.
Now my example:

Public Structure LowerLevel
friend Value() as integer
End Structure

Public Structure UpperOne
Dim UnderOneLevel () as LowerLevel
End Structure

public MyVariable(10) as UpperOne

It compiles ok in VB.net.... But what if I need 1000 Underonelevel´s and 100 values in each????

The only possible way I could get it to work was the ugliest one:

public x ,y ,z as integer

for x = 1 to 10
redim myvariable(x).underonelevel(1000)
next x

for y = 1 to 10
for x = 1 to 1000
redim myvariable(y).underonelevel(x).value(100)
next x
next y

Why did I do it?
I noticed if I only declare something like:
redim Myvariable(10).underonelevel(1000)
redim Myvariable(10).underonelevel(1000).value(100)

I will only have created 100 "values" in Myvariable.underonelevel(1000),
so Myvariable(10).underonelevel(1000).value(55) would be valid
in the other hand
i wont have 100 "values" in any other "underonelevel" so
Myvariable(10).underonelevel(999).value(55) would not be valid because in Myvariable(10).underonelevel(999) it was not declared how many "values" the variable should have
Similarly, so Myvariable(9).underonelevel(1000).value(55) would not be valid because of the nine... and so on...

Anyway it could be done like in the "old" Vb6????
Do I really need all this code(and time, it took me 30 seconds to init the app)???

Hope someone can help me!
Thanks in advance!

Patrick Goettert

Forms and controls are vertically stretched with foreign language Windows

wleong_lws28-Sep-04 13:15

wleong_lws

28-Sep-04 13:15

I am porting a VB .Net Window application to a variety of foreign languages. With the Traditional Chinese version of Windows 2000, all of my forms and controls are vertically stretched. Some of the controls run off the bottom of the form too. The spacing between the controls is taller than usual. I cannot reproduce this strange behavior with any other versions of Windows, including French, German, and English. I cannot reproduce this bug with applications written with VB 6.

I have tried downloading other sample .Net Window applications from the web and they also suffer from the same problem. Are there any ways to get around this problem? I have not actually translated any of the string contents to any other languages yet.

Wesley Leong

Outlook sync component?

cmkWildsky28-Sep-04 11:56

cmkWildsky

28-Sep-04 11:56

Anyone recommend a good component to sync a sql database to Outlook's contacts/tasks/events? Intellisync looks great, but $50K(!) is a bit steep.

Thanks!

Chris

Re: dropping module into application

Dave Kreskowiak28-Sep-04 9:40

Dave Kreskowiak

28-Sep-04 9:40

How about a link to the article your talkin' about?

I have to ask... What experience do you have in programming? Be it COBOL, Fortran, C++, C#, any version of BASIC, WinSock, SDK's, .NET Framework, ... ?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

image's read pixel with VB6

2ndhandcomputer28-Sep-04 7:22

2ndhandcomputer

28-Sep-04 7:22

Hi,
Now I read images properties with "type declaration".
But I don't still image's read pixels.

How I read image's line? (10W, 50H)
1,2,3,4,5,6,7,8,9,10W, 1st H
1,2,3,4,5,6,7,8,9,10W, 2st H
1,2,3,4,5,6,7,8,9,10W, 3st H
...
1,2,3,4,5,6,7,8,9,10W, 50th H

http://www.2ncielbilgisayar.com

Re: image's read pixel with VB6

Jose Cezar S. Ynion28-Sep-04 20:33

Jose Cezar S. Ynion

28-Sep-04 20:33

HI,

I can't fully understand your question but if your trying to read the image pixel in VB then here's an alternative.

1. Put a PictureBox in your form.
2. Load your desired image by setting its Picture property.
3. Then use this code

dim x as long
dim y as long
dim rgbColor as long
For y = 0 To picBox.ScaleHeight - 1
For x = 0 To picBox.ScaleWidth - 1
rgbColor = GetPixel(picBox.hDC, x, y)
Next x
Next y

Re: image's read pixel with VB6

2ndhandcomputer29-Sep-04 7:55

2ndhandcomputer

29-Sep-04 7:55

You understood me. Thank you.

rgbColor = GetPixel(picBox.hDC, x, y)

I saw a few .hDC in example codes.
And you wrote .hDC in your code.
what does .hDC?

Has vb6 got GetPixel command?

http://www.2ncielbilgisayar.com

Re: image's read pixel with VB6

Jose Cezar S. Ynion29-Sep-04 16:39

Jose Cezar S. Ynion

29-Sep-04 16:39

GetPixel is an API. You can declare this at the top of your code

Private Declare Function GetPixel Lib "gdi32" _
(ByVal hDC As Long, _
ByVal x As Long, _
ByVal y As Long) As Long

hDC is a device context handle, needed when working a display or printer. This can be compared to HWND when your are working with window object, one use of HDC on the other hand is for drawing.

Saving modified fields

mtone28-Sep-04 4:55

mtone

28-Sep-04 4:55

I am working on a VB.Net application that will have forms with textboxes and datagrids and will populate with data from a database. When the user makes a change to a value or many values. How do I update my database,I do not mean how to write an Update statement. There are several tables involved and I am looking for the best way to update when the user hits the save button. Do I have to update all the tables or is there a better way to track modified fields.

Also, any suggestions on using Datadapter to fill dataset amd update modified rows datagrids.

Thanks

How do you draw outside of your Form??

RichiLloyd28-Sep-04 4:34

RichiLloyd

28-Sep-04 4:34

Hi,

I've searched hi and low to find out how you can draw outside of the Form, but haven't found anything!

Please can anyone help?

I'm trying to draw rectangles outside of my Form, of course it gets Clipped by the Form itself. I've tried to modify the Clip for the Form, but I can't seem to change it whatsoever. Is it possible to create a Graphics object for Windows itself? So that you can draw anywhere on the screen??

Any help or advice would be much appreciated!!

Many thanks!

Richard

HTML Parser

wmeurer28-Sep-04 3:31

wmeurer

28-Sep-04 3:31

I am looking for scripts or classes that can do the following:
1. Search through a set of folders for html files
2. Open the files one by one to parse
3. Count tags and attributes in each html document, tally how many of each in the document, and output the tallies to a file
4. Give properties of the html file, like file size

I've done asp.net development before, I just have never had to do any of these things. If you can help with any of these 4 things, I would greatly appreciate it. VB preferrably, but I could use C#.

Thanks so much.

I would rather do a VB Project than ASP.NET, but could use that code, too!

problem in working with childforms in vb.net

Mohan G28-Sep-04 3:10

Mohan G

28-Sep-04 3:10

hello to all

i got some problem with child forms in my vb.net application.
in my application i need to maximize some child forms when they are loaded (set the windowstate to maximized at design time).

if i do so then, the next form opened which is not be maximized and the windowstate is also set to "normal" at design time also getting maximized (awwwwww it sucks). why this happens so ?. (i guess its setting the prev. forms window state .... )

i have set the maximizebox to "flase" for all the forms which i don't want to maximize and set the formboaderstyle to "fixedsingle"

to solve my problem what should i do ?

in short >> i want to retain the childforms windowstate property set at design time (not to be changed automatically at run time)

please some body help me out ...

adv. thanks

Mohan G

Re: problem in working with childforms in vb.net

Dave Kreskowiak28-Sep-04 3:26

Dave Kreskowiak

28-Sep-04 3:26

This is how Windows is designed. You can't change it and there is no way around this.

If you maximize a client window, they all get maximized. If you restore a client window to normal, they all are returned to normal.

If you want to simulate a miximized form, you'll have to size it to the client window area in code and update the size if the parent window's size changes.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: problem in working with childforms in vb.net

Anonymous29-Sep-04 5:25

Anonymous

29-Sep-04 5:25

thank you rage
as you said its behaving the same

so i have changed my other forms to normal only (which were needed to load as maximized earlier) hope the problem will be solved ...

seperate string

macmac3828-Sep-04 2:36

macmac38

28-Sep-04 2:36

Hello,

i like to seperate an incoming string to an array. The values are delimited by commas.

input string format like "122.23, 232.0, 12.34"

I think of using the split function:

<br />
Dim inputstr as variant<br />
<br />
list = split(inputstr,",")<br />
<br />

After this i like to put the several values in double format variables. This require some typecasting, right? Does anybody has the syntax for the loop and the typecyasting? I am new to vb..

happy coding,
-mark

Re: seperate string

Jim Matthews28-Sep-04 3:36

Jim Matthews

28-Sep-04 3:36

Hi Mark, not sure which version of VB you're using (VBA, VBCLassic, or VB.Net)

for splitting the string in VB.Net...

Dim input as Object = "122.23, 232.0, 12.34"
Dim arrList() as String = CStr(inputString).Split(","c)

for casting the remaining items from the stringarray to a double format recursively in VB.Net...

Dim arrCosts(arrList.GetUpperBound(0)) as Double
for i as Int32 = 0 to arrList.Length - 1
   arrCosts(i) = Double.Parse(arrList(i).Trim)
next

arrCosts is an array of your Numbers in Double format.

hope this helps.

-jim

Re: seperate string

macmac3828-Sep-04 3:48

macmac38

28-Sep-04 3:48

Thanks, i am using vba on excel 2003

happy coding,
-mark

Re: seperate string

macmac3828-Sep-04 4:01

macmac38

28-Sep-04 4:01

mmh, by the way do you have an VBA implementation?

happy coding,
-mark

os win2000 vba office 2003, vc++ 6.0

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.