Visual Basic

Christian Graus29-Feb-08 21:45

Christian Graus

29-Feb-08 21:45

Sounds like you need to buy a book and work through it. I really can't work out the specifics of your problem but it sounds like you're asking for something that is easily researched online, or found in books.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

yogesh_kumar_agarwal29-Feb-08 21:49

yogesh_kumar_agarwal

29-Feb-08 21:49

use teh following code

<br />
<br />
 DataGridView1.Rows(x).Cells(y).Value = "Hello"<br />
<br />

Here use the loop to control x and y
and use DataGridView1.Rows.Add to add new row

Yogesh Agarwal

r_mohd29-Feb-08 22:36

r_mohd

29-Feb-08 22:36

thanks for your support.

further help me how to navigate between colums and how can i handle the events.

thanks again

rmshah
Developer

yogesh_kumar_agarwal29-Feb-08 22:51

yogesh_kumar_agarwal

29-Feb-08 22:51

Hi

You could use the code :-

<br />
dim i as integer<br />
<br />
for i=0 to DataGridView1.ColumnCount-1<br />
<br />
 <the code=""><br />
<br />
next<br />
<br />
</the>

Now i is your variable to navigate on columns, to handle the events most of the event handles has the colindex and rowindex property to determines the column and row you use like if i talk about the celcontentclick event the default event for datagridview then: -

<br />
<br />
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick<br />
<br />
<br />
if e.ColumnIndex = 0 Then<br />
<br />
<some code=""><br />
<br />
End If<br />
<br />
<br />
<br />
End Sub<br />
<br />
</some>

Yogesh Agarwal

Manage MDI childs

highjo29-Feb-08 12:27

highjo

29-Feb-08 12:27

hello!
i've created a small mdi sofware and.to open a child form a user should click on the menu item corresponding.Even if the same form is already openned when i click on the same menu item it opens again the ssame form which is not logical.How can i prevent the form to be openned more than once.thanks

eager to learn

J$29-Feb-08 13:16

29-Feb-08 13:16

I haven't work in VB for a while, so I apologize if my syntax is off. What you should do is something along the lines of:

<br />
Dim myForm as New Form1()<br />
<br />
myForm.Show()<br />

yogesh_kumar_agarwal29-Feb-08 17:21

yogesh_kumar_agarwal

29-Feb-08 17:21

Hi J$

Your code do the same thing, and the problem remains same do this

<formname>.show

did not create the new object for the form else ti will display the form again and again

With Regards

Yogesh Agarwal

I have a similar reply here.[^]

darkelv29-Feb-08 17:59

darkelv

29-Feb-08 17:59

Sachin Gokhale2-Mar-08 18:48

Sachin Gokhale

2-Mar-08 18:48

Create a object of the form (probably in a module)-
For e.g
Dim objfrm1 as Form1

Now, on click event of the context menu (or button) write the following code -

if isnothing(objfrm1) then
objfrm1 = new form1
objfrm1.MdiParent = me
objfrm1.show()
else
objfrm1.focus()
end if

Also, do not forget to set the obj to nothing on the form closing event.
I mean, on CLOSING event of form1 write the followng code.
objfrm1 = nothing

Worring about losing keeps me WINNING>>..

highjo11-Mar-08 5:58

highjo

11-Mar-08 5:58

hi i've tried the suggestoin of Sachin Gokhale and he's right.I found it so easy and i was wondering why i couldn't find it myself.Thanks man Big Grin | :-D

eager to learn

Anoop Brijmohun2-Mar-08 23:13

Anoop Brijmohun

2-Mar-08 23:13

Hi
try this

dim frm as form1
frm.showdialogue(me)

this wont let the user work with anything other form, until this form closes!

hope this helps...

Questio how to input massage into yahoo chat screen Internet Explorer_Server

highjo3-Mar-08 6:13

highjo

3-Mar-08 6:13

ok thanks will try different suggestion here and tell which is cool.Thanks again guys!

eager to learn

VB_Crazy29-Feb-08 9:10

VB_Crazy

29-Feb-08 9:10

I found this information howto get from Interent Exlorer_server

<br />
Option Explicit<br />
'A demonstration on how to get the Yahoo Chat or PM HTML or Text<br />
'Based on Get YM! Chat Text & HTML from "Internet Explorer_Server" object By: James Johnston<br />
'I cleaned up his method for ease of use, and also reduced the amount of code by 1/10th<br />
'I added the last line and got rid of the extra scroll bar in the HTML version<br />
'Now, I can go back to makin chat bots >:)<br />
'c0ldfyr3 www.EliteProdigy.com<br />
<br />
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br />
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long<br />
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long<br />
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long<br />
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long<br />
Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long<br />
Private Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, riid As UUID, ByVal wParam As Long, ppvObject As Any) As Long<br />
Private Const SMTO_ABORTIFHUNG      As Long = &H2<br />
Private Const GW_HWNDFIRST          As Long = 0<br />
Private Const GW_HWNDNEXT           As Long = 2<br />
Private Const GW_CHILD              As Long = 5<br />
Private Type UUID<br />
   Data1                            As Long<br />
   Data2                            As Integer<br />
   Data3                            As Integer<br />
   Data4(0 To 7)                    As Byte<br />
End Type<br />
Private Type typWindows<br />
    ClassName                       As String<br />
    hWnd                            As Long<br />
End Type<br />
Private Type typWinFinal<br />
    ChildWindows()                  As typWindows<br />
    Count                           As Integer<br />
End Type<br />
Public Type YIMType<br />
    Text                            As String<br />
    HTML                            As String<br />
End Type<br />
Public Const c_ChatStyle            As String = "<style>" & vbCrLf & _<br />
                                                ".sendername { font-size:10pt;font-family:Arial;font-weight:bold;color:#000000;text-decoration:none };" & vbCrLf & _<br />
                                                ".recvername { font-size:10pt;font-family:Arial;font-weight:bold;color:#0000FF;text-decoration:none };" & vbCrLf & _<br />
                                                ".ymsgrname { font-size:10pt;font-family:Arial;font-weight:bold;color:#FF0000;text-decoration:none };" & vbCrLf & _<br />
                                                ".chatusername { font-size:10pt;font-family:Arial;color:#FF0000;text-decoration:none };" & vbCrLf & _<br />
                                                ".usertext { font-size:10pt;font-family:Arial; };" & vbCrLf & _<br />
                                                ".redstatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#FF0000;text-decoration:none };" & vbCrLf & _<br />
                                                ".greenstatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#008800;text-decoration:none };" & vbCrLf & _<br />
                                                ".graystatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#888888;text-decoration:none };" & vbCrLf & _<br />
                                                ".chatrecver { font-size:10pt;font-family:Arial;font-weight:bold;color:#880000;text-decoration:none };" & vbCrLf & _<br />
                                                ".chatsender { font-size:10pt;font-family:Arial;font-weight:bold;color:#0000FF;text-decoration:none };" & vbCrLf & _<br />
                                                ".chataction { font-size:10pt;font-family;Arial;color:#880088;text-decoration:none };" & vbCrLf & _<br />
                                                "a { color:#0000FF; };" & vbCrLf & _<br />
                                                "p { text-indent:-7;margin-left:10;margin-top:0;margin-bottom:0 };" & vbCrLf & _<br />
                                                "</style>"<br />
Public Const c_PMStyle              As String = "<style>" & vbCrLf & _<br />
                                                ".sendername { font-size:10pt;font-family:Arial;font-weight:bold;color:#000000; }" & vbCrLf & _<br />
                                                ".recvername { font-size:10pt;font-family:Arial;font-weight:bold;color:#0000FF; }" & vbCrLf & _<br />
                                                ".ymsgrname { font-size:10pt;font-family:Arial;font-weight:bold;color:#FF0000; }" & vbCrLf & _<br />
                                                ".usertext { font-size:10pt;font-family:Arial; }" & vbCrLf & _<br />
                                                ".redstatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#FF0000; }" & vbCrLf & _<br />
                                                ".greenstatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#008800; }" & vbCrLf & _<br />
                                                ".graystatus { font-size:10pt;font-family:Arial;font-weight:bold;color:#888888; }" & vbCrLf & _<br />
                                                ".imvnotify { font-size:10pt;font-family:Arial;font-weight:bold;color:#000088; }" & vbCrLf & _<br />
                                                "a { color:#0000FF; }" & vbCrLf & _<br />
                                                "p { text-indent:-7;margin-left:10;margin-top:0;margin-bottom:0 }" & vbCrLf & _<br />
                                                "</style>"<br />
<br />
Public Function GetClassN(ByVal hWnd As Long) As String<br />
    Dim ParentClassName             As String<br />
    Dim Z                           As Long<br />
    ParentClassName = String(100, Chr(0))<br />
    Z = GetClassName(hWnd, ParentClassName, 100)<br />
    GetClassN = Left(ParentClassName, Z)<br />
End Function<br />
Private Function GetChildWindows(hWnd As Long) As typWinFinal<br />
    Dim ChildP                      As Long<br />
    Dim LastChild                   As String<br />
    Dim MainP                       As Long<br />
    Dim WinDetails                  As String<br />
    Dim First                       As Boolean<br />
    Dim AdWin                       As Long<br />
    <br />
    GetChildWindows.Count = -1<br />
    MainP = GetWindow(hWnd, GW_CHILD)<br />
    ChildP = GetWindow(MainP, GW_HWNDFIRST)<br />
    Do While ChildP <> 0<br />
        ChildP = GetWindow(ChildP, GW_HWNDNEXT)<br />
        If ChildP = 0 Then Exit Do<br />
        WinDetails = GetClassN(ChildP)<br />
        <br />
        GetChildWindows.Count = GetChildWindows.Count + 1<br />
        ReDim Preserve GetChildWindows.ChildWindows(GetChildWindows.Count)<br />
        <br />
        With GetChildWindows.ChildWindows(GetChildWindows.Count)<br />
            .ClassName = WinDetails<br />
            .hWnd = ChildP<br />
        End With<br />
        DoEvents<br />
    Loop<br />
End Function<br />
Public Function GetIMText() As YIMType<br />
    Dim IMClass                     As Long<br />
    Dim MidWin                      As Long<br />
    Dim InternetExplorerServer      As Long<br />
    Dim Something                   As typWinFinal<br />
    Dim X                           As Integer<br />
    Dim sTmp                        As String<br />
    Dim yTmp                        As YIMType<br />
    <br />
    'Loop through all the windows finding their handles from predefined classnames.<br />
    IMClass = FindWindow("imclass", vbNullString)<br />
    Something = GetChildWindows(IMClass)<br />
    For X = 0 To Something.Count<br />
        sTmp = Something.ChildWindows(X).ClassName<br />
        If Len(sTmp) > 4 Then<br />
            If StrComp(Left(sTmp, 3), "atl", vbTextCompare) = 0 Then<br />
                InternetExplorerServer = FindWindowEx(Something.ChildWindows(X).hWnd, 0&, "internet explorer_server", vbNullString)<br />
                yTmp = GetIEText(InternetExplorerServer)<br />
                If InStr(1, yTmp.HTML, "function RestoreStyles()") > 0 Then<br />
                    GetIMText = yTmp<br />
                End If<br />
            End If<br />
        End If<br />
    Next<br />
End Function<br />
Private Function GetIEText(ByVal hWnd As Long) As YIMType<br />
    Dim doc                         As IHTMLDocument2<br />
    Dim col                         As IHTMLElementCollection2<br />
    Dim EL                          As IHTMLElement<br />
    Dim l                           As Long<br />
    Dim v1                          As Variant<br />
    Dim v2                          As Variant<br />
    Set doc = IEDOMFromhWnd(hWnd)<br />
    'Pass the data back through the function<br />
    On Error GoTo Ender:<br />
    GetIEText.Text = doc.body.innerText<br />
    GetIEText.HTML = doc.body.innerHTML<br />
    Exit Function<br />
Ender:<br />
    GetIEText.Text = "No Chat Or Pm Open ?"<br />
    Err.Clear<br />
End Function<br />
Private Function IEDOMFromhWnd(ByVal hWnd As Long) As IHTMLDocument<br />
    Dim IID_IHTMLDocument           As UUID<br />
    Dim hWndChild                   As Long<br />
    Dim spDoc                       As IUnknown<br />
    Dim lRes                        As Long<br />
    Dim lMsg                        As Long<br />
    Dim hr                          As Long<br />
    If hWnd <> 0 Then<br />
        'If the Handle is not 0, that means if the window is open .........<br />
        'We tell windows we are going in for the kill, and grabbing the data<br />
        lMsg = RegisterWindowMessage("WM_HTML_GETOBJECT")<br />
        Call SendMessageTimeout(hWnd, lMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes)<br />
        If lRes Then<br />
            With IID_IHTMLDocument<br />
                .Data1 = &H626FC520<br />
                .Data2 = &HA41E<br />
                .Data3 = &H11CF<br />
                .Data4(0) = &HA7<br />
                .Data4(1) = &H31<br />
                .Data4(2) = &H0<br />
                .Data4(3) = &HA0<br />
                .Data4(4) = &HC9<br />
                .Data4(5) = &H8<br />
                .Data4(6) = &H26<br />
                .Data4(7) = &H37<br />
            End With<br />
            hr = ObjectFromLresult(lRes, IID_IHTMLDocument, 0, IEDOMFromhWnd)<br />
            'We pass the data back from the function.<br />
        End If<br />
    End If<br />
End Function<br />
<br />
<br />
Public Function GetIMWindowText(lWindow As Long) As YIMType<br />
    Dim IMClass                     As Long<br />
    Dim MidWin                      As Long<br />
    Dim InternetExplorerServer      As Long<br />
    Dim Something                   As typWinFinal<br />
    Dim X                           As Integer<br />
    Dim sTmp                        As String<br />
    Dim yTmp                        As YIMType<br />
    <br />
    'Loop through all the windows finding their handles from predefined classnames.<br />
    'IMClass = FindWindow("imclass", vbNullString)<br />
    Something = GetChildWindows(lWindow)<br />
    For X = 0 To Something.Count<br />
        sTmp = Something.ChildWindows(X).ClassName<br />
        If Len(sTmp) > 4 Then<br />
            If StrComp(Left(sTmp, 3), "atl", vbTextCompare) = 0 Then<br />
                InternetExplorerServer = FindWindowEx(Something.ChildWindows(X).hWnd, 0&, "internet explorer_server", vbNullString)<br />
                yTmp = GetIEText(InternetExplorerServer)<br />
                If InStr(1, yTmp.HTML, "function RestoreStyles()") > 0 Then<br />
                    GetIMWindowText = yTmp<br />
                End If<br />
            End If<br />
        End If<br />
    Next<br />
End Function<br />

does anyone have example how to set some html tag into interent Explorer_server?

thank you much

Re: Questio how to input massage into yahoo chat screen Internet Explorer_Server

Dave Kreskowiak29-Feb-08 9:25

Re: Questio how to input massage into yahoo chat screen Internet Explorer_Server

29-Feb-08 9:25

VB_Crazy wrote:
interent Explorer_server

What's an "interent Explorer_server"??

You might want to be a bit more specific about what you want to do. Put a tag into what??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

VB_Crazy29-Feb-08 18:35

VB_Crazy

29-Feb-08 18:35

Internet Explorer_Server is what yahoo messenger use for
chat text class name

i'm trying to add some html tag and information into that
notice myself only.

Re: Questio how to input massage into yahoo chat screen Internet Explorer_Server

VB_Crazy12-Mar-08 9:08

VB_Crazy

12-Mar-08 9:08

No one have idea how to work this?

Hey

Nebstar29-Feb-08 6:36

Nebstar

29-Feb-08 6:36

i want to encrypt my database which is in access. I linked access with vb6...help with the encrption
Suspicious | :suss:

Re: Hey

Dave Kreskowiak29-Feb-08 7:16

RichTextBox RightToLeft problem

29-Feb-08 7:16

OK. Open Access, go to the Tools menu, click on Security, then click on Encrypt/Decrypt database. Pick the database you want to encrypt, then give the encrypted copy a filename.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

helelark12329-Feb-08 6:30

helelark123

29-Feb-08 6:30

Hello,

I am writting a samll editor for my application using RichTextbox in VB 2005.
When i am clicking on RightToLeft button all the font style is dissapearing.
Could someone help?

Please try the following:
1) Add richtextbox1 and two buttons
2) Run the program
3) Write in the RichTextBox "HEllo" for example
4) Select the Hello world
5) Click on Button1
6)Click on button2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.SelectionFont = New Font("Arial", 14, FontStyle.Bold Or FontStyle.Italic)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
End Sub

Thank you

Shay Noy

Dave Kreskowiak29-Feb-08 7:20

29-Feb-08 7:20

This is a known issue. You can read about it here[^]. There is no fix yet.

The workaround is to copy the contents of the RTB to the clipboard, change the RightToLeft property, then paste the contents back into the RTB.

An alternative, that I did NOT try, is to grab the contents of the RTF property instead of copying to the clipboard, then put it back after you change the property.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

helelark12329-Feb-08 22:29

helelark123

29-Feb-08 22:29

Thank you, but if I have more that one line in my richtextbox it doesn't work well.
Have you got any idea how to surmount this problem?

Thank you

Shay Noy

Dave Kreskowiak1-Mar-08 14:43

1-Mar-08 14:43

I already gave you the only known workaround.

Anything else would require using a 3rd party RichTextBox control, not Microsoft's.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007