Visual Basic Developer

Running a Service

2008-02-09T17:50:00Z

I wrote a service in .NET for a friend of mine. The service is designed to append to a log file when a person opens a program (World of War-craft) or closes it with a time stamp. It will also close the program down automatically at a specific time if it is running, and not allow it to be opened between certain times of the day.

The problem I've run into is that when I started the service it runs on one user's account but not on the account it should be running on (the one where the game is played on). Does anyone know how to get a service to run for all users? I've looked into it and cannot find anything on this problem. Is there a way for a user to not allow services to be running when they are logged on?

Any help would be appreciated.

VBA question

2007-09-14T12:03:58Z

About excel. Is there any simple way to check out is the Cell in the named Range or not?

I am New and Need Help

2007-05-20T17:15:58Z

I originally had 2 Comboboxes one listed the MODEL the other listed the FINISH I've got a list box that I am using to display selections. The trouble I was having, was I couldn't figure out how to get these two items appear on one line example: 2304M .It would display on seperate lines. If someone could tell me how to connect them, I'll change it back. Right now I have the selections all in one combobox like 2304M
Also, I'd like to display the Date and Time that selections were made like 2304M Monday May 21, 2007 1:00PM   all on one line. I hope I haven't confused anyone, so please forgive me.
Again the names of the boxes are cboModel and cboFinish and ListBox1. I need to know how all the info is saved after selections are made. There will be quite a few items in the ListBox at the end of the day.
Thank You and GodBless
                           Brett

Thanks and a New Question "Autoincrements?"

2007-03-31T02:52:41Z

I want to thank you for the suggestions on my previous issues regarding combo boxes.
I decided to go with the visible/invisible option for 2 combo boxes, it was a lot easier to set up (for now).

Now I have a new question.
I have to add something to a database, which has an "orderNumber" which is a composite primary key.
Im not sure how my database would create the new order number or how to get my application to add the order number.
Here is the code I have so far-

'inserts the calculated order into tblPurchase
Me.TblPurchaseTableAdapter.Insert(txtProdID.Text, orderNum, prodQuantity, _
prodPrice, shipCost, salesTax, totalCost, Today)

'fills the dataset for the tblPurchase with data
Me.TblPurchaseTableAdapter.Fill(Me.DsLeopard.tblPurchase)

Now someone suggeted I do this to fill in the order number:-

'retrieves the maximum current order number and increments it.
Dim orderNum As Int32 = Me.TblPurchaseTableAdapter.MaxOrderNum()
orderNum = orderNum + 1

But with my lack of knowledge on some of this, im not sure how to make/code a scalar query to the table adapter for the tblPurchase table that retrieves the maximum order number.

Any thoughts/suggestions on how I could do this?

Changing the data bound to a combo box

2007-03-28T02:13:48Z

Hi all, I was wondering if anyone had some advice for the brick wall im running into on a project.
Ive tried different VB forums, and endless searches and I cant seem to find an answer.

Im writing the application in VS2005. The application is a product inventory for foods.
It is linking to an Access Database with 3 tables.

My form has a combo box at the top which allows the user to select the product by description.
It is linked to the description column of the products table.
In my file menu I have options that specify "Select > By Product Description" and "Select > By Product ID"

I cannot for the life of me find any examples of code for these select buttons, that will change the combo box to display either Product ID or Description based on choice?

Any help would be greatly appreciated.
Many thanks.

this might seem like a silly question

2007-03-10T17:04:56Z

Could someone please tell me in layman's terms what the Math.Abs function does? I need to use it in order to calculate the difference between 2 data members of a class. I've tried googling it but I get even more confused.

Thank you for your help :)

classes and methods

2007-02-21T05:01:41Z

Are there any good websites on this subject? My professor's an ass and doesn't know how to teach so I'm going to teach myself.

Thank you in advance. :)

converting to an executable file

2006-12-04T19:40:54Z

Hello! How would one convert their project into an application that can be used on any OS even if it does not have vb? Normally I'd check my textbook but I left it at home. I've never done this before. I'm using visual studio 2003.

I thank you in advance for your help! :)

Dynamic Arrays (Please help yet again)

2006-10-18T03:31:18Z

Could someone please help?

Here's what I have to do:

1. Code PrintGradesButton to display the grade list in MessageLabel.
2. Code AddGradeButton to:
a)pop up with an input box and allow the user to enter the new grade.
intGrade = CInt(InputBox("Enter grade:"))
b) increase the size of the array by 1.
c) store the new grade in the array.

This is what I did but I'm not sure if it's right.

Private Grades() As Int16 'declare array on top of the form

In the AddGradeButton I have this code:

dim intGrade as int16
dim intValue as int16
intGrade = CInt(InputBox("Enter grade:"))
intGrade = GetUpperBound(+1)
ReDim Preserve Grade(intValue)
Grade(intValue) = intGrade

Does this look right to you?

In serious need of help :(

2006-09-29T04:06:16Z

Hello..I just need some assistance regarding something that I'm trying to do.

I need to create a procedure called SetFont with 2 parameters: a label parameter and a string parameter. This procedure will recieve a label object and define the label's font settings. The string parameter will be 1 byte: H, N or R. Inside the procedure I need to use a Select Case statement that examines the string parameter and sets the fonts as shown below:

Heading(H) - Font Name (comic Sans MS); font size 14 bold - true, italic - false, foreColor - any colour

Normal (N) font name (comic sans MS), font size: 11, bold - false, italic - false, foreColor - any colour

Refund (R) fontname (Arial), fontsize - 9, bold - true, italic- true, forecolor - any colour

Inside the other procedure (DisplayTotal - don't worry about this) I need to call SetFont as appropriate...

I've tried to figure this out but I can't make any sense of it for the life of me. I need to do it for one of my classes..I'm such a n00b at this

Anyways, thank you for your time..

vbdev @ 2006-09-25T23:01:00

2006-09-25T22:27:37Z

I'll try to go through this as simply as I can as I don't know how complex this sounds. I'm using VB 6.0 and I'm developing a helper program for an old wargame called BattleTech, currently I have a main screen that lets you open a selector page for selecting only 4 robots from a pool of about 15 robots. The way you select is to double click the picture and that tells another form, which is also on screen, to add an item to its list box with just text saying the robot you selected ie if you double click the Robot Alpha picture an item appears with the text "Robot Alpha". Once all 4 robots are selected, and the selection screen is closed, you then select all the items in the listbox and click a button on that form which sends each list to an option button, on the main screen. The option button's caption is updated with each robot's name respectively ie the first robot on the list will go onto the first option button. These option buttons are in a control array and there are 4 of them.

This means that 1 robot could appear at least once at any of the 4 option buttons. What I would like the program to do is when the option button, for a robot, is clicked and a button is pressed it reads a file that contains information for walking, running and jumping and populates that into the text boxes i have on the main screen. I've already tried doing this numerous times only managing to get a little far with one robot. Here's the code I have so far

Dim tmpString As String
Dim ReadFrom As String

Private Sub cmdOpen_Click()
Dim a
Dim b
Dim c
Dim d

Close
Open "C:\Documents and Settings\J\My Documents\BattleTech pbem program\mech.dat" For Input As #1
For d = 0 To 3 Step 1
If frmBTechMain.optMech(d).Caption = "Commando COM-2D" Or (EOF(1) = True) Then
Close #1
Open "C:\Documents and Settings\J\My Documents\BattleTech pbem program\mech.dat" For Input As #1
ReadFrom = ""
Line Input #1, tmpString
If StrComp(ReadFrom, tmpString) = 0 Then
Do While tmpString <> ""
Line Input #1, tmpString
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtWalking = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtRunning = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
If tmpString = "0" Then
frmBTechMain.lblJumping.Enabled = False
frmBTechMain.txtJumping.Enabled = False
frmBTechMain.txtJumping = tmpString
Else
frmBTechMain.txtJumping = tmpString
End If
End If
Loop
Else
Line Input #1, tmpString
End If
ElseIf frmBTechMain.optMech(d).Caption = "Spider SDR-5V" Or (EOF(1) = True) Then
Close #1
Open "C:\Documents and Settings\J\My Documents\BattleTech pbem program\mech.dat" For Input As #1
ReadFrom = ""
Line Input #1, tmpString
If StrComp(ReadFrom, tmpString) = 0 Then
Do While tmpString <> ""
Line Input #1, tmpString
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtWalking = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtRunning = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
If tmpString = "0" Then
frmBTechMain.lblJumping.Enabled = False
frmBTechMain.txtJumping.Enabled = False
frmBTechMain.txtJumping = tmpString
Else
frmBTechMain.txtJumping = tmpString
End If
End If
Loop
Else
Line Input #1, tmpString
End If
ElseIf frmBTechMain.optMech(d).Caption = "Jenner JR7-D" Or (EOF(1) = True) Then
Close #1
Open "C:\Documents and Settings\J\My Documents\BattleTech pbem program\mech.dat" For Input As #1
ReadFrom = ""
Line Input #1, tmpString
If StrComp(ReadFrom, tmpString) = 0 Then
Do While tmpString <> ""
Line Input #1, tmpString
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtWalking = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtRunning = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
If tmpString = "0" Then
frmBTechMain.lblJumping.Enabled = False
frmBTechMain.txtJumping.Enabled = False
frmBTechMain.txtJumping = tmpString
Else
frmBTechMain.txtJumping = tmpString
End If
End If
Loop
Else
Line Input #1, tmpString
End If
ElseIf frmBTechMain.optMech(d).Caption = "Panther PNT-9R" Or (EOF(1) = True) Then
Close #1
Open "C:\Documents and Settings\J\My Documents\BattleTech pbem program\mech.dat" For Input As #1
ReadFrom = ""
Line Input #1, tmpString
If StrComp(ReadFrom, tmpString) = 0 Then
Do While tmpString <> ""
Line Input #1, tmpString
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtWalking = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
frmBTechMain.txtRunning = tmpString
End If
If StrComp(tmpString, "") = 0 Then
Line Input #1, tmpString
If tmpString = "0" Then
frmBTechMain.lblJumping.Enabled = False
frmBTechMain.txtJumping.Enabled = False
frmBTechMain.txtJumping = tmpString
Else
frmBTechMain.txtJumping = tmpString
End If
End If
Loop
Else
Line Input #1, tmpString
End If
End If
Next
Close #1
End Sub

Those Dim a,b,c,d have been left there as I had been messing around with nesting extra For...Next loops.

Sorry for the longness of this post and I hope I've given enough information. If not then please let me know.

Thanks very much!

GTMaskDate

2006-09-17T18:48:15Z

Hi, guys.
I'm using GTMaskDate control of GreenTree (3d party control). It opens a calendar when user clicks on it and user can choose the date. Inside the calendar there are days of the week, usually it's order is: Sun, Mon, Tue, Wed, Thu, Fri, Sat. I need to change the order of the days for the russian project to be Mon, Tue, Wed, Thu, Fri, Sat, Sun.
Does anyone knows how can I define it in GTMaskDate? I read the GreenTree help, the explanations regarding the properties, method and events of this control but I didn't see anything concerning the order of the days in week.
Please, help!

Using SGrid2 FindSearchMatchRow() function

2006-08-28T11:48:48Z

Hi 2 all!

Dose somebody use the SGrid2 control from www.vbaccelerator.com?
I have one problem with it, may be you can help me:
How I can use FindSearchMatchRow(sSearchString As String, [bLoop As Boolean = True], [bVisibleRowsOnly As Boolean = True]) function, cause it nothing search in columns with ECGSortType other than CCLSortNumeric ?

I'd like to use this usefull function cause it's not good idea to completely rebuild datagrid by changing query to database.

Thank's to all.

VBScript to VB

2006-08-14T18:53:57Z

I currently have a VBScript that connects to a database, pulls out some information, does a compairson and then sends an email if conditions are met. It works online but I need to find a way to make this run on a schedule and I think the best way is probably to write it as a Visual Basic exe and set it up on the web server using the Windows scheduler.

It's been about 5 years since I wrote a VB program so I was wondering if anyone out there could help me sort how to go about doing the same thing in VB as I did in VBScript? Or point me towards a tutorial that will let me connect to a database, run a query and send an email.

Read, ReadLine, and annoying text files.

2006-06-13T16:03:49Z

So I have this file I'm trying to read into SQL Server with a DTS package that uses a VBScript component (which is why I'm posting here).

Easy code:

	do until x.AtEndOfStream
		name_of_junk_var = x.ReadLine
		msgbox name_of_junk_var

Now, here's the hard part. I won't be able to post an example of the file, because the reason I'm using ReadLine is that when I open the file in notepad, the characters I see between lines are unprintables (represented in notepad with those generic little rectangles that tell me nothing).

So, questions.

1. Is there any way to play with what ReadLine sees as a row delimiter?
2. If not, is there any way for me to discover what these unprintables are without endless trial-and-error (since I assume I'll be using Read if ReadLine can't be modified)?

Thanks.

Adding a value to a table

2006-05-28T00:15:12Z

Heeelp!!! I'm making a database in Access and I have this form that retrieves a Vendor's name from the Vendor table.

The thing is, it needs to - ugh how can I 'splain this without a picture? hm...

VENDOR TABLE FIELDS
ven_id (PK)
ven_name

CHECK TABLE FIELDS
check_ven_id (FK - looks up a value in the ven_id field in the vendor table)

CHECK FORM
combo box that looks up vendor.ven_name
several text boxes that enter info into the check table (such as check amount and check number)

The problem is, when I put the vendor name into the combo box, the form complains because it can't match vendor.ven_id with any values in check.check_ven_id

I need it to automatically enter the appropriate vendor ID into the check.check_ven_id field as soon as the vendor name is selected in the combo box and I can't for the life of me figure out how to do this.

Wow that was wordy. I hope you guys can decipher it. It would be much easier to explain it if you could see it.

Question...

2006-05-15T04:58:56Z

I don't know what this is called in VB.NET, so I'm not sure what to search for. I'm looking for the VB equivilant to the JAVA Vector, which is like an array, except you don't have to set the number of elements in it.

If you could point me in the right direction, I'd really appreciate it.

Thanks so much!
--Lisa

(updated for my own brain-deadedness)

it never ends.....

2006-05-10T13:24:45Z

i sometimes wish i had the time and money for a personal tuteor for this stuff.

i hav a program with 2 forms. we shall call them form 1 and form 2.

i would like to right some code in fomr 2 to add text to a list box in form 1.

anyone want to talk me through this?

thanks in advance....

vbdev @ 2006-04-05T13:19:00

2006-04-05T05:23:32Z

I realise I might come across as somewhat of a dimwit posting this, but please do bear with me.

i am trying to create a survey using visual basic editor. i'm doing this via microsoft powerpoint. i'm cool with the userform and option buttons. now my questions are:

1. how do i get the userform to run when the ppt file is opened? right now when i open the ppt i just get a blank presentation but when i go to tools->visual basic editor my code is all there.

2. since this is a survey, i need to get the answers to the survey questions saved. How can i insert an "ok" button that will save the selected responses to my ppt file?

this is pretty urgent. i really appreciate any help i could get.
thanks so very much!

vbdev @ 2006-03-19T00:13:00

2006-03-19T00:13:11Z

i was wondering if there is anyway to bundle image files into an exe file with VB6?

Multiselect on bound Datagridview's

2006-03-17T16:35:18Z

Ok, I have 3 datagrids, and I have datasources bound to them.

When you click an item on the master grid, the two grids under it filter using The row selected as the criteria of what to display.
if you pick grid #2 grid #3 follows this behavior.

The problem is the app isn't aware of selecting more than 1 row. I have multi-select turned on, so how would I make it use both rows selected?

Conver VB to .exe

2006-03-15T17:32:46Z

Hi,
Can anyone tell me if it is easy enough to convert an Visual Basic 6.0 program into an .exe? I have a program that I want to be able to run without anyone accessing the code. Is this something I can do on my own?
Thanks!!

Event Handlers VB2005

2006-03-13T21:14:17Z

Ok, I'm pretty new to this so bare with me.

Basically I have a form that's populated dynamically.
In the case I'm working with, when a button is pushed a new group box is created via a call to another class (call it filterclass) and placed on a flowlayoutpanel. This group box contains text box's and buttons. The problem is there appear to be no eventhandlers for these text boxes or buttons and I need them to handle a click event. So My question is, how do I add a click event to the textboxes?

Example:

User pushes button on main form.
The button calls "filter.addgroupbox()"
Groupbox control (with child controls) is added to a layoutpanel on the main form.

The problem is the main form now has no way to access the events.

I have access to the source so I can do whatever is needed.

sequential file access - contents not displaying on form..So confused

2006-03-06T20:06:52Z

I'm working with this file with the following contents:

"90200067","Toothpaste", true
"44301527","Chicken", false
"88202599","Diapers", true
"12300371","Milk", false
"18323900","Lawn Furniture", true
"42700329","Butter", false
"93200232","Okra", false
"93200264","Strawberries", false

Basically I have to display all of the contents of this file either on the form itself or it's sent to file. My problem is that only the last line ("strawberries") is displaying..Whereas all of the words showing up..

I have no idea how to fix this. I can't get help from my teacher.

Here is my code:

Private Sub TillReceiptButton_Click(ByVal sender As System.Object, ByVal e As System.E....

Dim StrLongString As String
Dim decTotal As Decimal
Dim decTax As Decimal
Dim strfilename As String
Dim strBarcode As String
Dim strTax As String
Dim strItem As String
Dim decSubTotal As Decimal
Dim decPrice As Decimal
Dim strfilename2 As String
Dim strPayment As String
Dim specificdate As Date
Dim specifictime As Date

FileOpen(1, "store.dat", OpenMode.Input)

Do While Not EOF(1)

Input(1, strBarcode)
Input(1, strItem)
Input(1, strTax)

decPrice = CDec(strBarcode.Substring(4, 4)) / 100
WordsLabel.Text = strItem
NumbersLabel.Text = FormatCurrency(decPrice)

Loop

FileClose(1)

StrLongString = "Subtotal: " & " " & FormatCurrency(decSubTotal) & ControlChars.NewLine & "Tax Amount " & _
FormatCurrency(decTax) & ControlChars.NewLine & FormatCurrency(decTotal) & ControlChars.NewLine & ControlChars.NewLine _
& strPayment & " " & "Payment recieved on " & specificdate.ToLongDateString & " " & specifictime.ToShortTimeString & _
ControlChars.NewLine & ControlChars.NewLine & "Thank you for shopping with us."

TotalsLabel.Text = StrLongString

If writetofileCheckBox.Checked Then
FileOpen(1, "storereport.txt", OpenMode.Output)

PrintLine(1, StrLongString)
TotalsLabel.Text = String.Empty
WordsLabel.Text = String.Empty
NumbersLabel.Text = String.Empty
FileClose(1)

Else
WordsLabel.Text = strItem
NumbersLabel.Text = FormatCurrency(decPrice)
TotalsLabel.Text = StrLongString

End If

End Sub

I'd really appreciate some advice. Thank you kindly!!

code help

2006-03-05T19:13:09Z

I am attempting to pass a start and end date range to a crystal report called from visual basic 6. I have seen some code snippets online as examples, however they are not doing the trick. I keep getting an "Error in Formula"

I am gettingmy two date range variables from start and end date text boxes.

If someone could help me out, I'll have to hug ya.

strQryString = "{LndTowerData.[DATE]} >= #" & Format(txtStartDate.Text, "mm-dd-yyyy") & "# And {LndTowerData.[Date]} <= #" & Format(txtEndDate.Text, "mm-dd-yyyy") & "#"

rptLndBill.SelectionFormula = strQryString

rptLndBill.Action = 1