Re: Card Game ? - Visual Basic Discussion Boards

Re: Please Help ListBox Contains Very Urgent

Dave Kreskowiak2-Jan-07 5:15

2-Jan-07 5:15

First, have you done any database work at all from VB.NET?

You'd have to create a table in the database, if you don't already have one to put this information, with, at a minimum, a column defined as Text with a specific length, say 50 characters. In your code you have to create an OleDbConnection object and a OleDbCommand object. This command object needs an SQL statement to add things to the column in your table. Then you create a OleDbParameter object:

Dim conn As New OleDbConnection(connectionString)
Dim comm As New OleDbCommand("INSERT INTO tableName (columnName) VALUES (?)", conn)
comm.Parameters.Add("@p1", OleDbType.VarChar, 50).Value = stringValueToAdd
conn.Open()
comm.ExecuteNonQuery()
conn.Dispose()

This is a very simplified example of one way to do this. I, in no way, imply that this will work with your code.

Dave Kreskowiak
Microsoft MVP - Visual Basic

RegisterHotKey

acidice3331-Jan-07 14:55

acidice333

1-Jan-07 14:55

I'm using RegisterHotKey, but how do I register multiple keys and make them do different operations?

    Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, _<br />
                                                          ByVal fsModifiers As Integer, ByVal vk As Integer) _<br />
                                                          As Integer<br />
    Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer) As Integer<br />
<br />
    Public Const WM_HOTKEY As Integer = &H312<br />
<br />
    Public Enum Modifiers<br />
        MOD_ALT = &H1<br />
        MOD_CONTROL = &H2<br />
        MOD_SHIFT = &H4<br />
        MOD_WIN = &H8<br />
    End Enum<br />

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br />
<br />
        If m.Msg = WM_HOTKEY Then<br />
            MsgBox("Hot key pressed")<br />
        End If<br />
<br />
        MyBase.WndProc(m)<br />
    End Sub

Then I register the key with something like RegisterHotKey(Me.Handle, 101, Modifiers.MOD_CONTROL, Keys.L)

Re: RegisterHotKey

Dave Kreskowiak2-Jan-07 4:56

Dave Kreskowiak

2-Jan-07 4:56

As described in the docs for WM_HOTKEY[^], you look at the LPARAM of the message to see which keys were pressed. You can then branch based that to each routine you wanted to do.

Dave Kreskowiak
Microsoft MVP - Visual Basic

online translater for my program: how do I ?

JustmeNick1-Jan-07 7:55

JustmeNick

1-Jan-07 7:55

does any one know how to use the internet to translate for me..

I am writing a program to translate from english to spanish and vise versa..can anyone suggest how i start and how to do something like this..

Nab

Re: online translater for my program: how do I ?

MatrixCoder1-Jan-07 22:22

MatrixCoder

1-Jan-07 22:22

You could start by finding a English and Spanish dictionary class. Then pick each word out of (whatever you want to translate) and compare them to each word in the English/Spanish dictionary by using an identification method (not really sure how to do so).

That's pretty much it.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Card Game ?

Bso_Cool1-Jan-07 6:19

Bso_Cool

1-Jan-07 6:19

What I am trying to do is make a card game but in the hand there is not always a set amount of cards I am using labels for this I got it to create the labels as needed but what I am trying to do now is get it to where if the click on the card it moves up a little to signify that it has been selected but I can't figure that part out on how to do it. Here is an ex. of the code I am using to create the first part of the hand.

For N = 1 To 13
Label(N) = New Label
Label(N).BorderStyle = BorderStyle.Fixed3D
Label(N).BackColor = Color.Maroon
'PlayersHand is an Array with all the Card Numbers in them.
Label(N).Text = Player1Hand(N)
Label(N).Size = New Size(Label1.Width, Label1.Height)
Label(N).Font = Label1.Font
Label(N).TextAlign = ContentAlignment.MiddleCenter

CardX = CardX + 50
Label(N).Left = CardX
Label(N).Top = CardY
Label(N).BringToFront()
Me.Controls.Add(Label(N))
Next

If anyone can help me I would really appreciate it. Thank You for looking!

Re: Card Game ?

Christian Graus2-Jan-07 0:10

Christian Graus

2-Jan-07 0:10

Your approach is fundamentally broken. You should do this by creating graphics which you store as resources and draw to the screen ( or at least draw text right where you want it ). Moving labels and pictures boxes around is just a disaster.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: Card Game ?

Martin.Smith2-Jan-07 0:12

Martin.Smith

2-Jan-07 0:12

In your FOR loop that is creating the labels, add an event handling function for the mouse click event, for example:
AddHandler Label(N).MouseClick, AddressOf CardClickFct

You will then need to create the CardClickFct, such as:

    Sub CardClickFct(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) <br />
       Dim TheCard as label = DirectCast(sender, Label)<br />
<br />
       ' TODO: Add whatever you want the card to do when its been clicked<br />
    End Sub

What you must also remember to do is remove the event handler when the label is destroyed (by calling RemoveHandler)....

You MUST ensure that your array variable "Label" is declared "WithEvents" for this to work!!!

I hope this helps you out....

Regards,

Martin

Search in Combo

msleem1-Jan-07 5:20

msleem

1-Jan-07 5:20

I use VB.NET 2005 and
I want to search in combo's items . for example :
the combo have many names when I start to write the first litter of the name which I want to find , the combo automatically find the names which begin with the same letter and show them in order.

In VB6 I use this code :

(General Diclaration)
Global IgnoreTextChange As Boolean

'
Public Function ComboSearch(CO As ComboBox)
Dim I%
Dim NewText$
If Not IgnoreTextChange And CO.ListCount > 0 Then
For I = 0 To CO.ListCount - 1
NewText = CO.List(I)
If InStr(1, NewText, CO.Text, 1) = 1 Then
If Len(CO.Text) <> Len(NewText) Then
IgnoreTextChange = True
I = Len(CO.Text)
CO.Text = CO.Text & Mid$(NewText, I + 1)
CO.SelStart = I
CO.SelLength = Len(Mid$(NewText, I + 1))
Exit For
End If
End If
Next
Else
IgnoreTextChange = False
End If
End Function

and thanks for any help
Smile | :)

soly

Re: Search in Combo

The ANZAC1-Jan-07 23:20

The ANZAC

1-Jan-07 23:20

try findstring on the text_changed event. Not Sure Exactly where to find it. maybe me.combobox1.findstring(me.combobox1.text), think that should do it. Should choose the closets matching item.

Posted by The ANZAC

alter excel-table via sql

Smithers-Jones1-Jan-07 4:38

Smithers-Jones

1-Jan-07 4:38

i want to add a new column to an excel-table, the name of this new column is the caption of a datagrid's column.
the only problem: the column's caption consists of two words (firstname, surname).
i use this command:

<br />
Cmd1.CommandText="ALTER TABLE MyTable ADD '" & dt.columns(column).caption.tostring & "' FLOAT"<br />

this works fine, but the names are enclosed by '-characters which doesn't look too nice. without '-character it doesn't work anymore, of course.
any help?

web service

arindam_1st31-Dec-06 22:51

arindam_1st

31-Dec-06 22:51

I haven't understand the web service please help with some good example as soon as possible.

Arindam

Help Needed!! Problem with creating a installation

ArchaBhandare31-Dec-06 20:06

ArchaBhandare

31-Dec-06 20:06

I am working on a VB project.
I was successful in creating an executable for the client using 'File->Make Project.exe'. But I want to provide the client with a setup, so that the client can install the whole project.
Actually the client has provided me with some install scripts in the '.wse' format. I cant figure out how to create an installable using these files.
Has anyone used .wse files to create installables. Please help

Re: Help Needed!! Problem with creating a installation

MatrixCoder1-Jan-07 22:18

MatrixCoder

1-Jan-07 22:18

Try a standalone installer.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

file input/output

carl_sti31-Dec-06 17:14

carl_sti

31-Dec-06 17:14

anyone knows on how to search specific text on a text file and able to modify it..

Re: file input/output

Dave Kreskowiak31-Dec-06 17:57

Dave Kreskowiak

31-Dec-06 17:57

Load the file into a String variable, call Replace on it with the text you want to find and what to replace it with, then write the string back out to the file.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: file input/output

Pravat Maskey31-Dec-06 19:16

Pravat Maskey

31-Dec-06 19:16

U can do with many methods.
1st... U can read file with filestream and read as byte or readline and search string with "InStr" function. or looping.
2nd the best idea is "regular expression".

how do i list all computer name on my network

JustmeNick31-Dec-06 17:03

JustmeNick

31-Dec-06 17:03

does anyone know how to list all the computers found on my network in a drop down list box?
I am working on this project that i need the user to select a computer name from a list of computer found on the network so as to setup up the system..

how do i list all the computer on my network..

Nab

Re: how do i list all computer name on my network

Dave Kreskowiak31-Dec-06 17:55

Dave Kreskowiak

31-Dec-06 17:55

Well, it depends on how your network is setup. Unless you're using Active Directory or the old NT Domains, there is no central database that lists all the machines on the network. You'll have to ping each and every IP address in your net to see if there is a response. But, that does NOT mean it's a Windows machine. It can be something else, like a network Printer, some server, Linux box, ... Even a non-response doesn't mean that a machine is not there. It could just be turned off.

Even using Active Directory or NT Domain, there's no guarantee that every machine on the network is a member of the domain.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: how do i list all computer name on my network

JustmeNick1-Jan-07 2:12

JustmeNick

1-Jan-07 2:12

Yes i am using Active Directory and all the computers are on the same domain..so now how do i go about listing them from that database...

Nab

Re: how do i list all computer name on my network

S Douglas1-Jan-07 21:13

S Douglas

1-Jan-07 21:13

JustmeNick wrote:
so now how do i go about listing them from that database...

Google ADSI

Here is an MSDN Example showing how to do it using VB Script.
Retrieving Computer Names from an Active Directory Container[^]

Or a CP Article (in C#)
Retreiving a list of network computer names[^]

They at least point you in the right direction. Good luck Smile | :)

I'd love to help, but unfortunatley I have prior commitments monitoring the length of my grass. :Andrew Bleakley:

Opening Files in Visual Studio.NET 2003

Peter Constant31-Dec-06 9:17

Peter Constant

31-Dec-06 9:17

Hi there,

I'm trying to build a simple application at work and im having a few problems. I'm not a programmer and am learning as i go though.

My problem is regarding the OpenFileDialog in the application. When clicking "open", the file dialog box will open for me. But when i click tyhe file and then open, nothing happens. I am probably going about this the wrong way.

All i need is a function so that the user can open the file they click. I do not want the file to be opened in my application but in the file type application (.vsd and .pdf).

I would greatly appreciate any help on this matter as the project is due pretty soon.

Thanks for taking the time to read this

Regards

Peter

Re: Opening Files in Visual Studio.NET 2003

KevinMac31-Dec-06 9:34

KevinMac

31-Dec-06 9:34

I am not sure about vs2003 but in vs2005 it is System.Diagnostics.process.start(filename) and this will start the file in it's application.

Hope it helps.

Re: Opening Files in Visual Studio.NET 2003

Peter Constant31-Dec-06 9:39

Peter Constant

31-Dec-06 9:39

Thanks very much for that. It works perfectly in 2003. Thanks again, really appreciate it.

Happy new year

Looking for a unique program ID

roo42631-Dec-06 4:00

roo426

31-Dec-06 4:00

Hi, I'm using VB.net 2003. I'm making a tcp/ip server/client program using "UNOLibs Class". I would like to know what is the best way to create/get a unique program ID so the server can identify witch client it's talking to. I would like an ID in case the two clients are from the same IP.

I can use a random number generator at startup, but would it be the best way?

Thanks,
Rob

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