|
thanks, find the coding which i used to take printout
Private Sub DataRptRecord()
'On Error Resume Next
Dim Var1, Var2 As String
If A_DataEnvironment.rsCmdPrnt.State Then A_DataEnvironment.rsCmdPrnt.Close
A_DataEnvironment.rsCmdPrnt.Open ("SELECT *From adrsmstr",conn)
DataRptAddress.Sections(2).Controls("lbl1").Caption = Trim(TxtCntact1.Text) ' AdrsBook_DataEnvironment.rsCmdAdrsPrnt.Fields(1)
DataRptAddress.Show
' the following section of codes deals with only dos base printings.
Private Sub DosBasePrinting()
On Error Resume Next
Dim A1, A2, A3, A4, A5, A6, A7 As String
Dim z As Integer
Dim i As Integer
If MarkAtt = True Then
Call AskForSave
If a.State Then a.Close
a.Open ("SELECT * From adrsmstr"), Conn, adOpenStatic, adLockBatchOptimistic
If a.EOF = False Then
a.MoveFirst
z = PrntNos
Open App.Path & "\A.TXT" For Output As #1
A1 = a.Fields(1)
A2 = a.Fields(0)
A3 = a.Fields(2)
A4 = a.Fields(3)
A5 = a.Fields(4)
A6 = a.Fields(6)
A7 = a.Fields(5)
For i = 1 To z
Print #1, " " & Trim(TxtCntact.Caption)
Print #1, " " & A2
Print #1, " " & UCase(Trim(A3)) & "," & UCase(Trim(A4))
Print #1, " " & A5
Print #1, " " & A6
Print #1, " " & A7
Print #1, " "
Print #1, " "
Print #1, " "
Next
Close #1
End If
X = Shell(App.Path & "\print.bat", vbHide)
rmshah
Developer
|
|
|
|
|
Hello,
Is somenone know a way how to add a table in richtextbox in vb.net 2005 without rtf property usage?
Thanks for help
Shay Noy
|
|
|
|
|
|
hi all,
i want to insert values into milti cells with multi rows in vb.net.
i am new to datagridview.
kindly help me.
thanks
rmshah
Developer
|
|
|
|
|
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 )
|
|
|
|
|
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
|
|
|
|
|
thanks for your support.
further help me how to navigate between colums and how can i handle the events.
thanks again
rmshah
Developer
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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 />
|
|
|
|
|
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
|
|
|
|
|
|
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>>..
|
|
|
|
|
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 
eager to learn
|
|
|
|
|
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...
|
|
|
|
|
ok thanks will try different suggestion here and tell which is cool.Thanks again guys!
eager to learn
|
|
|
|
|
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
|
|
|
|
|
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??
|
|
|
|
|
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.
|
|
|
|
|
No one have idea how to work this?
|
|
|
|
|
i want to encrypt my database which is in access. I linked access with vb6...help with the encrption
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
