rishif2

> when the user check the Civil check box the serial start from 1, when the user check on mechanical the serial should reset to 1 and continue, actually i can't differentiate both line separated by , please make your statement more clear so we can identify the exact problem.

please make your question more clear and also don't forget to put your efforts.

you just need the following Dim p As VB.Printer For Each p In VB.Printers If p.DeviceName = "EPSON" Then Set Printer = p End If Next i hope that you can use the above code according to your suitability.one more thing that may help you is that use of commondialog …

> Need a project on mobile apps in vb 6.0 as desktop application what kind of mobile apps. if you need a project then move to some project websites or create it . while creating a project if you face any kind of problem then first try to solve it …

@Klahr_R Never Forget to increment the value of `X`. in you case it will always return the same character because start position is not incremented. so don't forget to put `X=X+1` after `mid$(achr, X, 1)` @baabjitvk try this Dim str As String Dim i As Integer i = 1 str …

please make your problem more clear

> first = Val(txtFirst_Number.Text) > second = Val(txtSecond_Number.Text) where did you declare these variables ? so the replace the code with the following :- First_Number = Val(txtFirst_Number.Text) Second_Number = Val(txtSecond_Number.Text) this will solve the problem

you seem to be newbie here , so if you are not familiar with daniweb's rules then i will highly recommend you to see rules before posting a question. while a posting a question , you should also put your efforts so other user here can help as they are …

try this `Datagrid1.DataSource = Nothing` and also try this `Datagrid1.Clear` hope this helps you . . .

> Which answer helped you most? Now i realise that we didn't understand there the real problem what OP wants to share. As OP also soved the thread so we can't give time to solved thread as you know more question are there and waiting for appropriate answer. we confused …

there may be two reasons mostly : 1.there may not be `Adobe Reader` installed in the target system or they are using different version. 2.path may be different and i hope that you entered the correct path so its make sure that above 2 resons are there in your application …

i really don't understand the issue. please make it more clear.

welcome back without you , there was quiet silence in `Geeks' Lounge` Forum , but now i hope there will be more activity , more threads and more replies as well. once again i personally welcome you . . .

ok you can do that using lostfocus() Private Sub Text2_LostFocus() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub when you lost focus from textbox2 then it will fire code written inside lostfocus() hope this helps you . . .

yes , Klahr_R posted correct you need to use `"C:\" & Textfield.Text & ".pdf"` instead of ` "C:\textfield.text.pdf"` if you're using `textfield.text.pdf` , then will check for the file named `textfield.txt` and having extention `.pdf` so use this `"C:\" & Textfield.Text & ".pdf"` for desired output. atlast also make sure …

probably you are working with database application (with join) and if your code belongs to vb.net then don't forget to post new thread to related place.

> And how can I round off the results? I mean, if it shows 4.5 it would display 5 and if it's 4.5 it would display 4? Please help me. ceil() and floor() functions will result in what you want. lets see the example :- `cout<<floor(4.5);` it will round down …

have a look at [this](http://www.devx.com/tips/Tip/14246) > preview these file using image box in vb6 if can ???? for this , first you must conver the pdf page to an image file.(and for converting , you need some APIs).

> > The error points to line 55. here make sure that your form contains Text2(0) control array other wise replace your line 55 with the following code:- `.Fields("Quantity") = Text2.Text` one more thing , i dont see that in which `sub`(Procedure) you working and where it starts hope this …

welcome to daniweb . . .

what code do you have so far ? if you don't have the code then i suggest you to go through some visual basic database tutorials otherwise post you code here and we will try to solve out the issue.

see new thread created by you . . .

did you added the following to your code:- `MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1` `MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = Text1.Text` `MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = Combo1.Text` hope this helps you to solve the issue.

yes , its possible. you will need to work with connection objects.

first off , a few things from LeNenne if you wanna show picture for the related month then why are you using loop to do that (No need to have loop here). one more thing > if myday = myday it will always be true.so why are you using if …

visual basic 6.0 's standard progress bars are incapable to perform this task. And so you can't set its direction from right to left. you will need some 3rd party controls to do that otherwise its not possible in visual basic 6.0 , however you can change its orientation and …

what types of system ?

> I don't actually see much difference between the two > but i really see a lot . . .

> > Some other suggestion please you can insert the date into db and then compare this date everytime when an application runs.

it seems that you're trying to build sql query on the basis of textbox values try following:- `"select * from " & AniKindtxt.Text & " where AniTypes='" & AniTypestxt.Text & "'"` one more thing about what you write in you thread:- `AnimalRS.Open ("select * from & AniKindtxt.text & where AniTypes='" …

the most important advantage of ado over dao is that ADO supports a lot database engines like Access , sql server , mysql and so on whereas dao supports limited Database engine and works best with Access Database only. one more advantage of ado over dao is that ADO is …

you'll need to create your own thread. there we will try to solve your problem.

checkboxes are added to first column and i dont know the exact way which can add checkboxes to other column > programmatically move the first column (with checkbox) to > the third/last column.. yes , you can do that by using the following :- `ListView1.ColumnHeaders(1).Position = 3` the above statement …

"you must have an key to encrypt or decrypt it. You can also use that particular software from which encryption has made. otherwise its very hard to decrypt it" i think so.

you'll need to use `if` statements on the click event put the following code:- Private Sub Combo1_Click(Index As Integer) If Index = 1 Then MsgBox "your age" Else If Index = 2 Then MsgBox "you name" Else If Index = 3 Then MsgBox "you address" Else MsgBox "soemthing other" End …

use `Line Input #` instead of `Input #` if you wanna read an entire line . `input #` reads line upto `,` . hope this helps you . . .

when we start microsoft window calculator and switch to programmer mode(for number system like:-binary,octal,decimal,hexadecimal) then found that we cannot use dot(.) for floating point number but in fact number systems may have dot(.) (like 110101.1010). is this a bug in microsoft calculator or there is something other reason or there …

i think that storing images to the database would not be the right way because it will require more size for your DB and it will finally result in slow processing. so you should store only filename not an image file and for this , make proper use of function …

try this :- Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = Text1.Text + List1.List(i) + "; " End If Next End Sub before performing this task you have to set the `MultiSelect` property with the value `2Extended` hope this helps …

lets have a look at following :- Dim Time1 As Date Dim Time2 As Date Time1 = Format(Text1.Text, "hh:nn:ss") Time2 = Format(Text2.Text, "hh:nn:ss") MsgBox Format(Time1 - Time2, "hh:nn:ss") MsgBox Format(Time1 + Time2, "hh:nn:ss") > i want the result is same format. yes it will result in same format hope this …

i really dont understand the exact problem but if you wanna display names of the those candidate who are having emails then try this :- rs.Open "select Name,email from email_table ", conn, 2, 3 While (rs.EOF = False) If (rs!Email <> "") Then LstData3.AddItem rs!Name End If rs.MoveNext Wend it …

what problems you are facing ?

i assume that `cmdquit` is something event procedure > > If I press the X button on titel bar then > I will it goes to cmdquit when you click on the close button , it will execute the code written inside `Unload()`. > The tests I haave done just …

it will be very easy to answer this question , if you post you code here. just receive input and check whether user wanna continue or not (i think `if` will help you). if the input is for yes then continue i.e. call the function `main();` try this:- ch=getch(); if(ch=='y') …

you can use of character in case value . look here:- case '+': { sum = num1 + num2; cout<<num1 <<" + " <<num2 <<" = " <<sum <<endl; } break; case '-': { sum = num1 - num2; cout<<num1 <<" - " <<num2 <<" = " <<sum <<endl; } …

your question seems to belong vb.net and it is not vb.net place so post your question to related place and then we will try to solve the issue

you task can be done with `DatePart` function `MsgBox DatePart("ww", DTPicker1.Value)` hope this helps you . . .

here string is using to store ID string str; str = Console.ReadLine(); Console.Write("year is=20"); for (int i = 0; i < 2; i++) Console.Write(str[i]); Console.WriteLine("semester is=" + str[2]); Console.WriteLine("Branch is=" + str[3]); Console.Write("serial is="); for (int i = 4; i < str.Length; i++) Console.Write(str[i]); Console.ReadKey(); hope this helps you to …

what efforts did you made to solve this issue . . . ?

you can do this with the help of `Rollback` Method Try This:- Conn.RollbackTrans hope this helps you . . .