- Strength to Increase Rep
- +0
- Strength to Decrease Rep
- -0
- Upvotes Received
- 3
- Posts with Upvotes
- 3
- Upvoting Members
- 1
- Downvotes Received
- 0
- Posts with Downvotes
- 0
- Downvoting Members
- 0
PReS Programmer (Direct Mail Specific Language)
56 Posted Topics
 | I am writing an application which will process data over night. When it's finished a report is printed out. I am wanting the report to be printed to 3 different printers on the same network. Is it possible to do this? All three printers are installed on the pc. Thanks …  |
| | Hi, Here is an example of what you are looking for. This can be easily changed so other controls can be used. pG |
| | Hi Ann, To create an install program for your project, run the [B]Package & Deployment Wizard[/B]. This can be found in the tools folder. (Start bar... All Programs... Microsoft Visual Studio... Tools...) This is quite easy to use. pG |
| | Re: project [QUOTE=abhinav_blue87;450682]hi...i got reply from your side ... i urgently want a book library management project in visual basic 4/5/6.. please do the needful done... thanking you...[/QUOTE] I'm sure someone will do your project for you. Do they get your grade as well? I think not. Have a go yourself. If …  |
| | Re: copy files List the files in a ListFileBox Loop through the list checking FileDateTime() [CODE]Dim i as Integer For i = 0 to File1.ListCount If FileDateTime(File1.List(i)) = "11/05/2010" Then ' Do something here End If Next i [/CODE] |
| | |
| | Hi, When using the following SQL query I get back just over 12,000 records. SELECT JobNumber FROM myTABLE; There are alot of duplicates within the records. I am wanting to only get back one of each JobNumber. If I use SELECT JobNumber FROM myTABLE GROUP BY JobNumber the number of … |
| | Hi, The problem is the [B]End If[/B] you have added. see below: [CODE] Private Sub RandomNumbers() Dim intTemp As Integer Randomize 'generate random numbers intNum1 = Int((54 - 1 + 1) * Rnd + 1) intNum2 = Int((54 - 1 + 1) * Rnd + 1) intNum3 = Int((54 - … |
| | Hi, You could use the DateDiff command. Syntax: DateDiff(interval,date1,date2) e.g. DaysLeft = DateDiff("d",Now,"25/12/2005") MonthsLeft = DateDiff("m",Now,"25/12/2005") pG |
| | Hi, I am wanting to get some data from an Excel spreadsheet. My problem is the data in the cell has been formatted. i.e. This is [B]sample[/B] text. I want to be able to know which bits are made bold and create a string similar to: This is <b>sample<\b> text. …  |
| | Hi, I have an array that contains 5 elements: i.e. a(0) = "A" a(1) = "B" a(2) = "C" a(3) = "D" a(4) = "E" What I want to be able to do is remove the first element then add information to the end. e.g. a(0) = "B" a(1) = …  |
| | Hi, Probably a noob question but How would I find out the length of a file in bytes. within VB there is a LOF() command I can use once the file is opened. Is there an equivilant in C. Thanks for any help. pG  |
| | Examples - MDI - Excel SDI - Notepad |
| | Hi, I have the following code: [CODE]<% Dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject="Information from website" myMail.From="mymail@hotmail.com" myMail.To="someone@hotmail.com" myMail.TextBody="This is the information I want to email" myMail.Send set myMail=nothing %>[/CODE] When I use the above code I do not get an email sent to me. Any ideas? pG |
| | Hi, I have a class that runs an external ap using shell then waits till the app is quit before carrying on. Does anybody know if it is possible to start an app say by clicking a button then be told when the app has closed. The app can be … |
| | This is a bit basic but might help. pG |
| | The EndIf it the wrong side of the close statement. |
| | Hi, I have used the following code to add a new field to a database. Is there a way to stop this field having a Null value but still keep it empty? [CODE] strSQL = "SELECT * FROM cells ORDER BY cell, Proof;" Set db = OpenDatabase(lblDatabase.Caption, False, False) Set …  |
| | Hi, You could also check to see if the file exists: [code]isFile = Dir(FILENAME) [/code] isFile will be blank if the file is missing or contain the filename if it is there. pG |
| | Hi, Heres a small example for you pG  |
| | |
| | Not sure if this is what you are looking for: [URL="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shbrowseforfolder.asp"]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shbrowseforfolder.asp[/URL] |
| | Hi, I have written an application using a MDI. This is working well. Within the toolbar it has over 10 buttons each opening a different window within the MDI. In the future I will be adding more to the application. My question is, is it possible to create an application … |
 | Hi, As for VB6 I use: Visual basic 6 - Programmer Reference by Dan Rahmel Osborne Books - ISBN 0-07-882576-8 Pg |
| | I am using the following code to load a string of text from a file. [CODE] cCnt = 0 fFree = FreeFile Open txtDatafile.Text For Input As #fFree Do cCnt = cCnt + 1 fndRecord = (cCnt * RecLen) - RecLen If cCnt >= 2 Then fndRecord = fndRecord + …  |
| | I have started to use this instead of the Package & Deployment wizard supplied with VB6. Here is a link to the Visual Studio Installer: [URL="http://msdn.microsoft.com/vstudio/downloads/tools/vsi11/default.aspx"]http://msdn.microsoft.com/vstudio/downloads/tools/vsi11/default.aspx[/URL] I have found it really easy to use, plus the install program it creates is nicer. Hope this helps pG |
| | Re: hi every one Hi, Have a look at this tutorial. [URL="http://www.timesheetsmts.com/adotutorial.htm"] http://www.timesheetsmts.com/adotutorial.htm[/URL] Hope it helps pG |
| | Hi, You havent done a check to see if BigString contains anything in it. [CODE]lenBigString = len(BigString) if lenBigString <=1 then msgbox "Invalid String" end if[/CODE] pG |
| | Hi, A couple of ways you could dop this: 1. From Form2, you could [code]label1.caption = Form1.Text1.Text[/code] Thisill copy the text from Text1 on Form 1 to the Label on Form2 2. Add a Module to your script Within the module define the variables to be used across the two … |
| | Hi, A program I am writing has the user entering values into textboxes then clicking an 'Add' button. Once clicked one of the textbox values appears in a list box. e.g Job Number, Data Filename, Unique Code The Unique code is displayed in a listbox. All three values are stored … |
| | Hi, Is it possible to open a M$ Word doc in a RTF box? I thought of opening the doc in word and saving it as temp.rtf then opening that file in my rtf box, this would be a poor way of doing this. Any other ideas? pG  |
| | Hi, If I am reading it right, you want to be able to open another form when a user clicks onto a line of the FlexGrid. [CODE]Option Explicit Dim myRecord As Long Private Sub MSFlexGrid1_DblClick() myRecord = MSFlexGrid1.Row MsgBox "Selected record: " & myRecord ' Load edit form using record … |
| | Hi, Had a quick look at the code, endingbal = tempbb+tempda. This figure will always be the same because tempbb and tempda are set out of the for...next loop. You may need to add something like endingbal = (tempbb+tempda)*i to increment the value. pG |
| | [CODE] Dim i As Integer Dim myDate As String List1.Clear List1.AddItem Text1.Text For i = 1 To Val(Text2.Text) myDate = DateAdd("d", 7 * i, Text1.Text) List1.AddItem myDate Next i[/CODE] This is one way, im sure there is another. This also needs some checks at the start to make sure the … |
| | Try this: [CODE]Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 ' These are acceptable keystrokes Case Else ' These are unacceptable, and should be ignored KeyAscii = 0 End Select End Sub[/CODE] The numbers 48 to 57 are the ascii values of the numbers 0 to … |
| | Hi, I have a toolbar on an MDI form, this works fine. I am trying to add a Buttonmenu to one of the buttons on the toolbar to add extra options. This is the problem, I cannot get it to work. Any ideas? pG |
| | [CODE]Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub Wait(Seconds As Single) Dim lMilliSeconds As Long lMilliSeconds = Seconds * 1000 Sleep lMilliSeconds End Sub[/CODE] wait 660 this will wait for 11 minutes. |
| | [CODE]Private Sub Command1_Click() If IsNumeric(Text1.Text) = False Then MsgBox "Is not an integer" Exit Sub End If MsgBox "Ok" End Sub[/CODE] pG |
| | |
| | [CODE]inString = "ABCDEFG" rev = strReverse(inString)[/CODE] |
| | One way this could be done is to use a control array on the option buttions with code simmilar to below: [CODE]Private Sub Option1_Click(Index As Integer) Select Case Index Case (0) Option1(0).Enabled = True Option1(1).Enabled = True Option1(2).Enabled = True Option1(3).Enabled = False Case (1) Option1(0).Enabled = False Option1(1).Enabled = … |
| | Hi, use instr to find the '/' then left and right to get the two halves. [CODE] Dim x As String Dim slash As Integer Dim lCode, rCode As String x = "1234/abc123" slash = InStr(1, x, "/") If slash = 0 Then MsgBox "No Slash in code" Exit Sub … |
| | Re: Task Schedular [CODE]dim flag as Boolean Private Sub Form_Load() ' set flag to false when app starts ' I think it defaults to false. Just in case. flag = False End Sub ' Your code..... If lblTime.Caption = "9:11:25 AM" and Flag = False Then flag = True fullpath = "C:\windows\notepad.exe" iTask … |
| | You will need to reference - Microsoft Outlook Object library [CODE] Dim Msg As String Dim objOutlook As Object Dim objItem As MailItem Set objOutlook = CreateObject("Outlook.Application") Set objItem = objOutlook.CreateItem(olMailItem) Msg = "Here is the body text" Msg = Msg & vbCrLf Msg = Msg & "Over two lines." … |
| | Hi, I haven't used this before but you could possibly use the 'SendKeys' comand. Syntax: Sendkeys keystroke[, wait] Parameters: keystroke - Required, String containing key strokes. eg Enter wait - Optional, if True, control is not returned to the program until keys have been processed. use False for imediate control … |
| | Hi, Will somebody come to work and do my job for me?  |
| | Re: send keys Hi, I find this site realy useful. [URL=http://www.officecomputertraining.com/vbtutorial/tutpages/page9.asp#send]http://www.officecomputertraining.com/vbtutorial/tutpages/page9.asp#send[/URL] SendKeys is near the top of the page. You can search from the commands down the left. Hope this helps. pG |
| | |
| | |
| | Re: Print Screen After pressing 'Print Screen', load up a paint app (ie msPaint, Paint Shop Pro etc) Then paste. (CTRL + V) pG |
The End.