Posts by Pgmer

Thanks
ur code may work but im interfacing outlook in my appliction. i just want to attach the file with outlook.

Hi all
in my appliction i want to send the document through mail i.e: outlook
here is my code

Dim myWS As Object
Dim RegKey As String
Dim Key As String
Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\"
'access Windows scripting
myWS = CreateObject("WScript.Shell")
'read key from registry
RegKey = myWS.RegRead(Key)
If RegKey = "Microsoft Outlook" Then



Dim mailString As String = "mailto:" & "?subject= &body="
Process.Start(mailString)
Dim aFile As String = attachfile
Dim Ret As IntPtr
While Ret = 0
Application.DoEvents()
Ret = FindWindow(vbNullString, " ")
End While
SendKeys.Send("%if" & attachfile & "{ENTER}")

but it is not attaching the file just it opens the outlook
can anybady tell me where im my code goes wrong?

By setting the property of form
i.e form2.topmost=true

Hai all.
In my appliction im having MDI parent form. and i made frm2 as topmost form
But problem is whenever i open some other appliction still that frm2 will come on top.
whenver my application is open or active then only frm2 should be on top.

Thanks

Thanks for reply.
I know how to get last accessed time
created time.
but i want to know about last saved by,last printed on, author of the document..
Thank u.

Hai all,

I want to get to know about the file summary like last saved by, last printed on, authour
etc...
How can get it using file info function.
Thanks in advance.

Instead of combobox to type char or string cant u use textbox?
if yes then u can list the list box with all the name of customer starting with
that charecter.

Thank you.
But your code is replacing the next keyword not selected keyword.

Thnks wayne,
But ur code will search only for fisrt instance of keword and if i click on replace it is replaceing all the instance of key word. if i keep on clicking findnext button it should select and highlight the keyword untill txtend is reached. and when user click on replcae it has to replace the selected text and also it should highlight the next instance of keword in the document if there.
I think its clear to you. please help me out.

Hi all.
im writing function to find and replace the string. Im using 2 textbox's one for keyword which is to find and one to to replace. im having having two buttons btnfindnext and btnreplace. if i click on replace button it should select the text first and agin if i click on the same it should replace the string. and if i click on findnext it should select the next keyword in the document and if again btn replace is clicked it should replace the selected text.
Like in Ms word

thanks

It works. Thank u very much.

Thank u both ken sharpe and waynespangler for ur response.

what exactly i want is .

Say in document there may be 100 paragrphs out of which only 10 paragraph contains the keyword for which im searching for. i have to return those 10 paragraphs which have the keyword. if keyword is at start of paragraph then it should pick that paragraph and keep serching for the next paragraphs in which key word is there untill it reaches the end of document.
Hope this is clear...
Pls share ur ideas.
Thanks

Thank u. thats good idea.
But i need to find the paragraph.
in entire document there may be 100's of paragraph but i need to get only those paragraph in which the key word is found.....
pls help me out.....

thanks again..

Hai all,

in my appliction Im writing functionality to find keywords entered by user
if keyword found i need to return the 10 words before keyword and 10 words after keywords, Im able to find the keywords using Instr method.. Im not getting how to get 10 words Before and after keywords.. Any one hae idea? if you have sample code Then it would more help full

Thanks In advance.

No if i use sort it just sort it by name or somthing.
it is not going remove the duplicates.
any how i managed to elimanate the duplictes.
Thanks.

Thanks for ur reply Jx_man. if i use date time picker it loads only one format of date.
and i want to load the listbox with all available datetime formats..
My code is loading all datetime formats but values are repeating i dont know why
is there any way to sort them?

thanks.

Any one have idea about this issue?

Thanks for ur reply Jx_man. if i use date time picker it loads only one format of date.
and i want to load the listbox with all available datetime formats..
My code is loading all datetime formats but values are repeating i dont know why
is there any way to sort them?

thanks.

Hi all

Im loading list box with availabel datetime formats . but it is loading all the date time formats twice...
here is my code:

Dim dateTime As DateTime = New _
DateTime(Now.Year, Now.Month, Now.Day, Now.Hour, _
Now.Minute, Now.Second)
Dim d() As String = Nothing
d = dateTime.GetDateTimeFormats()
lstdateandtime.Items.AddRange(d)
how to sort out this issue?

To make text box to accept only numbers, in key press event of that textbox u can code like this

If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
e.Handled = True
MsgBox("Please enter valid number ")
End If

i think u can mannage other one..

Yes if u sort it in database itself then while loading combo itself it get sorted..

I think u need validation in save button click event.if datagrid.row.selected=true then
continue
else
msgbox("Please select Drug name")

u can sort it in database itself. u can use order by in ur query i think.

But this issue can be solved by using masked text box.
if we use no need to write code also

Do u want all Charecters of textbox in upper case?

Hi.
u can use masked text box for ur requirement

How can i delete the Combobox Collections programetically?????/

Thank u very much both of you.
if i get any doubt about it agin i vill give Bit trouble to you

Hi all
i want to use Ms Excel as database and vb6 as front end
is it possible?
if yes then how to do it
plz answer if u know

Hi all

Im developing one application where i need Ms Exell as my database and vb as fornt end
i dont know how to use exel as data base?
Plz help me out.....

thnx
regards..
Pgmer

Hi all
i want to validate the printer
if printer is connected do
else
nothing
how to get the printer status?

Hi all.
im using Textcontrol version14. im able to add pagenumber to the Left top of the page and leftbottom of the page
but i want to give the two more options like center of the document and
right top and bottomright of the document.
but im not getting how to do it.....

any bady having idea?

here is my code

Private Sub insertHeader()

Dim pageField As New TXTextControl.PageNumberField(1, TXTextControl.NumberFormat.ArabicNumbers)

Form1.TC.HeadersAndFooters.Add(TXTextControl.Heade rFooterType.Header)

With Form1.TC.HeadersAndFooters.GetItem(TXTextControl.H eaderFooterType.Header)
If .Selection.Text = "" Then

'.Selection.Text = "Page of "
.Selection.Start = 5
.PageNumberFields.Add(pageField)
.Selection.Start = 9
.TextFields.Add(curpages)

End If
End With
Isheader = True
txInitialized = True
updatePageNumber()
End Sub
Im calling this procedure in button click event.