Please Read This About My Question About Edit In Notepad.
Make the menu on the main form as normal, but make the top-most item invisible.EgmnuMyCustom "Custom Menu"--mnuEditInNotepad "Edit In Notepad"--mnu... "....."--etc etc etcThen, when you want the menu to popup - normally in a mousedown event;PopUpMenu [formname].mnuMyCustomLook up help for PopUpMenu for more information.When the menu item is selected from the popupmenu any code attached to the Click event of the menu is run (as normal). However, this isn't ideal as you normally want to write the code in the function that pops the menu up - in that case this is what I do..On the form where the menu is (normally the main form) - for this example it is frmMain.Public MenuSelected as IntegerIn each click event of the items on the customer menu;MenuSelected= [unique number]In the code where you want the menu to popup;frmMain.MenuSelected=-1PopUpMenu frmMain.mnuMyCustomselect case frmMain.MenuSelectedcase -1 (no items were selected from the menu)case 1 (do whatever you want the menu item where you set menuselected=1 to do)case 2....etcEnd SelectHope this make sense..------------------Mark "Buzby" BeetonVB Developer BuzbyB@HotMail.Com
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Find HWnd Of Edit Class In Notepad
hi everyone,
i have another problem.
i used spy++ to find out that the field in which you type in, in the NotePad program is a class called "Edit" (that is what Spy++ tells me) .....so i want to get the hWnd of the edit screen to send some text to it so first i get the hWnd...or at least try to......
xx = FindWindow("Edit", "Untitled - Notepad")
everytime xx = 0 ---- it didn't find it!!! could someone tell me why not?
thanks
-me
Read From Notepad
is there a way using vb to edit the text in a notepad document, and later on view it.
example: you could enter text in a textbox and on the click of a button that text is inserted into a new line of a notepad document. also, with the click of another button, any text in the notepad document can be viewed in a listbox.
Not Able To Read The Next Line In The Notepad
problem : i want to read the next lien from a notepad which hgas a matrix for example
1 1 1
0 1 1
1 1 1
After the first loop i want the str2 to be 0 1 1 ?Ho can we do that .any pointer plz.....or if u see nay fault in my code.....reply back at your earliest convenience. thanks
Dim x, y, z As Integer
Dim fname As String, str3(10, 10) As Integer, str2 As String, col1 As Integer
fname = "C:sss1foxoutput.txt"
Open fname For Input As #3
y = 1
While Not EOF(3)
Line Input #3, str2
str2 = Replace(str2, " ", "")
For x = 1 To Len(str2)
str3(y, x) = CInt(Mid$(str2, x, 1))
Next x
y = y + 1
Wend
MsgBox str3(2, 1)
Read From XLS And Write To A Notepad
Hi,
I am trying to read from an xls file columns 1,3,4,5 and write that to a notepad excluding the headers in xls (exclude the first row). Help me out in achieving this.
I am from legacy environment. So please try to make your code with comments as far as possible. Something from the scratch would be of great help to me.
Thank You.
Read And Manipulate Text In Notepad
Hello
I have a bunch of files opened in notepad (15 to be exact). What I would like to be able to do is to parse the text and use what I find as the name of the file when I save it.
I'm currently using the following code to save and close the files.
Code:
For d = 0 To 15
AppActivate ("notepad")
SendKeys "%FA", True
SendKeys "SeeTriangle[" & d & "]", True
'SendKeys "%TT", True
'SendKeys "%N", True
SendKeys "%S", True
SendKeys "Y", True
SendKeys "%FX", True
SendKeys "N", True
Next
I then open them back up in my app and do the parse and save them with the new name. I would like to cut out the extra step and just parse the file in Notepad and close it with the proper name.
I haven't been able to see a way to do this so far. So, my question is, Can I parse the text in notepad?
Thanks
David
VB Read Notepad Then Input To Excel
Situation: am reading a Notepad file to extract data to input into an Excel spreadsheet
When I find the data I need, I use this code to put it into the spreadheet:
wkbNewBook.ActiveSheet.Range("A4").Value = Mid$(textline, 4, 2)
Looking for a way via VB code to iterate the "A4" to "A5" then "A6", etc.
Any ideas?
Able To Read My Binary File In Notepad?
I've been experimenting with binary files and noticed that the file I created in "binary" mode, is readable in notepad? I thought that this mode put every character in terms of a "0" or "1"? Or maybe I'm doing something wrong..
I created a UDT... myRecord
...
' add some strings to myRecord
...
Open myfile for binary as #1
put #1,, myRecord
close #1
....
(I'm trying to protect sensitive data. Next step is encryption.)
any help is appreciated!
Kenny
VB Read Notepad Then Input To Excel
Situation: am reading a Notepad file to extract data to input into an Excel spreadsheet
When I find the data I need, I use this code to put it into the spreadheet:
wkbNewBook.ActiveSheet.Range("A4").Value = Mid$(textline, 4, 2)
Looking for a way via VB code to iterate the "A4" to "A5" then "A6", etc.
Any ideas?
Read 1 Line At A Time From A Notepad File
Hello,
I am making a program that I need to read 1 line of text from a notepad.exe file...
The current code I am using is:
VB Code:
Private Sub Command4_Click()Dim strLine As String Open App.Path & "/myFile.txt" For Input As #1 While Not EOF(1) Line Input #1, strLine Text1.Text = strLine WendClose #1End Sub
Now everytime I click on command4 I need the program to go to the next line of text in the app.path /myfile.txt and display it in the text1 text box...
How do I get it to read and output line 1 and then when I click it again read and output line 2, and so on?
Thanks and let me knwo if you need any more info!
How To Edit 'read Only' Form
hello...
i would like to enquire on how to edit a 'read only' form? I mean...how to change the 'read only' mode of the vb form to editable mode? Hope that someone can help me as I need the answer a.s.a.p. thanks in advance.
Read And Edit Registry Key
In VB how can I read and edit the value of the following key:
HKEY_CURRENT_USERSoftwareMicrosoftMicrosoft Office95FileNewSharedTemplatesstandard
Can someone help me?
How To Edit 'read Only' Form
hello...
i would like to enquire on how to edit a 'read only' form? I mean...how to change the 'read only' mode of the vb form to editable mode? I cant edit the coding but i can run the program.
Hope that someone can help me as I need the answer a.s.a.p. thanks in advance.
Read And Edit MS Access DB Using Vb 6.0
I'm busy with writing a program for a company where I'm a trainee.
Now i have to use a database. But I get the error "unrecognized database, number 3343". I have seen a lot off questions about this, but none has worked for me. Why is this possible?
Does it mathers that I use Access 2003 in stead of 2000???
Thanx, Erik
dries_neyrinck: moved to the VB Classic database forum. It was accidently posted in the .NET forum...
Edited by - dries_neyrinck on 8/23/2005 4:12:13 AM
Read && Edit Registry In VB
HI Guys,
I have downloaded a trial version of a software, now the trial period is expired and it doesn't run. I know at the time of first run some value was added to the Windows registry and it checked the value at the perod of expiration. So, now when I again install it, it doesn't run because the value is still in the registry.
I want to delete that value from the registry so that the softwre runs again after new installation or the existing one.
please help me out.
thanks in advance, have a nice time
XL: Read And Edit Data In Userform With ADO
Hi
I am building a spreadsheet application that enables users to record data about pre-application contact. I have built the part that records new entries on a remote spreadsheet, however, I can't work out how to read the records that have been created in a userform and edit them - I don't want to import them into a worksheet - I want the spreadsheet with the userforms to be a standalone application that gets its data from a remote spreadsheet.
I need to know how to insert the fields from the recordset opened into the various textboxes on the form and then to save the amended records back into the same row on the remote spreadsheet.
This needs to be done with ADO as other methods have been tried and failed due to the number of users accessing it.
Thanks
Yorkie
The code I'm using to create new records is below:
Code:
Private Sub CmdSave_Click()
On Error GoTo Err_CmdSave_Click
'Declare variables
Dim StrCn As String
Dim cn As ADODB.Connection
Dim strSQL As String
Dim strDateToday
Dim strDate As String, strAdviser As String, strContactType As String, strScheme As String
Dim strMeasure As String, strSector As String, strEligibility As String, strCost As String
Dim strRAP As String, strCounty As String, strP As String, strH As String, strTitle As String
Dim strFirstName As String, strSurname As String, strPhone As String, strMobile As String
Dim strEmail As String, strAddress1 As String, strAddress2 As String, strAddress3 As String
Dim strTown As String, strPostcode As String, strChkERDP As String, strChkRES As String
Dim strChkVTS As String, strChkPMG As String, strDateSent As String, strNotes As String, strNotesCont As String
'Define variables
strDate = Format(TxtDate.Value, "dd mmm yy")
strDateToday = Format(Date, "dd mmm yy")
strAdviser = CmbAdviser.Value
strContactType = CmbContactType.Value
strScheme = CmbScheme.Value
strMeasure = CmbMeasure.Value
strSector = CmbSector.Value
strEligibility = CmbEligibility.Value
strCost = TxtCosts.Value
strRAP = CmbTargetRAP.Value
strC = Format(CmbC.Value, "00")
strP = Format(TxtP.Value, "000")
strH = Format(TxtH.Value, "0000")
strTitle = CmbTitle.Value
strFirstName = TxtFirstName.Value
strSurname = TxtSurname.Value
If TxtTelephone.Value = "" And TxtMobile.Value = "" And TxtEmail.Value = "" Then
strPhone = "Unavailable"
Else
strPhone = TxtTelephone.Value
End If
strMobile = TxtMobile.Value
strEmail = TxtEmail.Value
If TxtAddress1.Value = "" And TxtAddress2.Value = "" And TxtAddress3.Value = "" _
And TxtTown.Value = "" And TxtPostcode.Value = "" Then
strAddress1 = "Unavailable"
Else
strAddress1 = TxtAddress1.Value
End If
strAddress2 = TxtAddress2.Value
strAddress3 = TxtAddress3.Value
strTown = Format(TxtTown.Value, ">")
strPostcode = Format(TxtPostcode.Value, ">")
If ChkERDP.Value = True Then
strChkERDP = "Y"
Else
strChkERDP = "N"
End If
If ChkRES.Value = True Then
strChkRES = "Y"
Else
strChkRES = "N"
End If
If ChkVTS.Value = True Then
strChkVTS = "Y"
Else
strChkVTS = "N"
End If
If ChkPMG.Value = True Then
strChkPMG = "Y"
Else
strChkPMG = "N"
End If
If TxtDateSent.Value <> "" Then
strDateSent = TxtDateSent.Value
Else
strDateSent = "01/01/00"
End If
strNotes = TxtNotes.Value
strNotesCont = TxtNotesCont.Value
strSQL1 = "INSERT INTO PreAppBasic ([Date], Adviser, ContactType)" & _
"VALUES ('" & strDate & "','" & strAdviser & "','" & strContactType & "')"
strSQL2 = "INSERT INTO PreAppSchSector (Scheme, Measure, [Sector])" & _
"VALUES ('" & strScheme & "','" & strMeasure & "','" & strSector & "')"
strSQL3 = "INSERT INTO PreAppEligCostRAP (Eligibility, Cost, RAP)" & _
"VALUES ('" & strEligibility & "','" & strCost & "','" & strRAP & "')"
strSQL4 = "INSERT INTO PreAppCPH ([c], [P], [H])" & _
"VALUES ('" & strC & "','" & strP & "','" & strH & "')"
strSQL5 = "INSERT INTO PreAppName ([Title], FirstName, SurnameCompanyName)" & _
"VALUES ('" & strTitle & "','" & strFirstName & "','" & strSurname & "')"
strSQL6 = "INSERT INTO PreAppPhoneMobEmail (Phone, Mobile, Email)" & _
"VALUES ('" & strPhone & "','" & strMobile & "','" & strEmail & "')"
strSQL7 = "INSERT INTO PreAppAddress (Address1, Address2, Address3, Town, Postcode)" & _
"VALUES ('" & strAddress1 & "','" & strAddress2 & "','" & strAddress3 & "','" & _
strTown & "','" & strPostcode & "')"
strSQL8 = "INSERT INTO PreAppPackRequest (ERDP, RES, VTS, PMG, PackSent)" & _
"VALUES ('" & strChkERDP & "','" & strChkRES & "','" & strChkVTS & "','" & _
strChkPMG & "','" & strDateSent & "')"
strSQL9 = "INSERT INTO PreAppNotes (Notes, NotesCont)" & _
"VALUES ('" & strNotes & "','" & strNotesCont & "')"
Save_Record:
'Open connection
StrCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:PreAppRecord-Server.XLS;" & _
"Extended Properties=Excel 8.0"
Set cn = New ADODB.Connection
cn.Open StrCn
'Enter the data in the correct fields
cn.Execute strSQL1
cn.Execute strSQL2
cn.Execute strSQL3
cn.Execute strSQL4
cn.Execute strSQL5
cn.Execute strSQL6
cn.Execute strSQL7
cn.Execute strSQL8
cn.Execute strSQL9
'Close the connection and destroy the object
cn.Close
Set cn = Nothing
' Reset the form
TxtDate.Value = strDateToday
'Adviser value not reset as it is assumed this would stay the same
CmbContactType.Value = ""
CmbScheme.Value = ""
CmbMeasure.Value = ""
CmbSector.Value = ""
CmbEligibility.Value = ""
TxtCosts.Value = ""
CmbTargetRAP.Value = ""
CmbC.Value = "00"
TxtP.Value = "000"
TxtH.Value = "0000"
CmbTitle.Value = ""
TxtFirstName.Value = ""
TxtSurname.Value = ""
TxtTelephone.Value = ""
TxtMobile.Value = ""
TxtEmail.Value = ""
TxtAddress1.Value = ""
TxtAddress2.Value = ""
TxtAddress3.Value = ""
TxtTown.Value = ""
TxtPostcode.Value = ""
ChkERDP = False
ChkRES = False
ChkVTS = False
ChkPMG = False
TxtDateSent.Value = ""
TxtNotes.Value = "Notes (limited to 32,000 characters)"
TxtNotesCont.Value = ""
'Move Focus back to the start
FrmPreAppRecord.MultiPage1.Value = 0
CmbContactType.SetFocus
Exit_CmdSave_Click:
On Error Resume Next
Exit Sub
Err_CmdSave_Click:
Select Case (Err.Number)
Case (1004)
If MsgBox("Another user is currently saving a record" & _
", and the workbook is therefore locked." & vbCrLf & vbCr & _
"Try Again?", vbQuestion Or vbYesNo, "RDS-Pre-App Records") = vbYes Then
Resume Save_Record
End If
Case (94)
MsgBox "You have left boxes blank where an entry is required." & _
" Please try again.", vbExclamation Or vbOKOnly, "RDS-Pre-App Records"
Case Else
MsgBox "Error #" & CStr(Err.Number) & vbCrLf & vbCr & _
Err.Description & vbCrLf & vbCr & "Please report this " & _
"problem to Martin Price", vbExclamation Or vbOKOnly, "RDS-Pre-App Records"
End Select
Resume Exit_CmdSave_Click
End Sub
How To Read/edit A Shortcut (.lnk) File
I am trying to find out how to read the properties of a shortcut file using VB so that I can search for and replace DNS names/ip addresses within them. I am aware of OSfCreateShellLink to make a shortcut bit I can't find an API to get the existing properties from a file.
Any help would be much appreciated
Tim
Read/Edit Memory Text
I been searching around and haven't found anything that does this in the way I want to.
I would like to read a memory address and display the text in a textbox and if the user wants to edit it. I found an example which will read the text and edit but it reads it in bytes and not text like I want to.
Any help is greatly appreciated.
Edit A File-type (eg. Read-Only)
I am making a program that will use a config file. It however needs to edit the filetype to read-only after it saves it.
Obviously programmers can easily edit it. (Clicking read-only I NEVER THOUGHT OF THAT lol :P) However this program is mostly for..... n00bs.
Open Read/Edit File
Hi all,
Got one thats kinda bugging me, trying to open a file and read a couple things in it and then rewrite new values to it. Here's a snipet of the file:
last_name=Beatty
sponsor=Ocean Point Charters
team_name=Golden Boy Racing
XETC tm
PAMB 0 DHMB
ATAD ՜ PAMB 0 DHMB
ATAD w_ PAMB 0 DHMB
ATAD ޒ{W PAMB H DHMB
ATAD z_1w» JOkԔ߽!PAMB DHMB
ATAD 1W_
i1]_ZWQ!Ur?U])}
What I want to do is read the values of last_name, sponser_name,team_name and write them to some text boxes and then be able to write them back if they have bee edited.
TIA
TextBox (read,edit,write)
What I'm trying to do:
Open a text file and display the contents in a text box (I've done this)
Need to be able to edit the file from within the textbox and have it save
back to the source file.(can't figure how to do this)
I was thinking on the Open for Output or Append, but I can't get it to
accept a variable(TextBoxText) to open(since it's not a file) , what would
be the simplest way to accomplish this task?
How Can I Read And Edit A Text File?
Background: I am writting a small VB app for work where one of the funtions is to store the Usernames, Passwords, and Notes for various venders.
I am stuck trying to figure out How I can make this program Edit the Data in a plain text file. If anyone has any suggestions I'd really appreciate it.
Thanks.
Open Several Files Read Them Edit Them And Save Them
Hi, i have an app that needs to read 6 text files in it root directory, display them in 6 different RTBs allow manipulation and then save them all again
I can do this the mickey mouse way but i want to use arrays and loops to do it all more effectivly.
So
1. How do i loop through the folder and open each text file as an array item
2. how can i save these files again after any editing
3. how do i reference the files from the array
thanks for the help in advance!
MIDI Creation. (Save/read/edit)
Does anyone have the time to explain how to save to a *.mid (*.midi) file?
Does anyone have the time to explain how to read from a *.mid file?
...I have a working VB project made by MICROSOFT (copyright stuff here) that accesses the Sound tables and such. What I don't know is the before mentioned? does anyone know?
Insert/Edit/Read Image To Database
Dear Friends,
Greetings to you all
I am using VB6.0 as Front-End, Ms-Access as Back-end, For Report Purpouse using Segate Crystal Reports 7.0
Here I am able to store image into database in a Ole object. But database stores the same image format as Long Bianary format. This particular format is not able to viewed in the Crystal report.
To Insert and Edit i am using this code:
Public Sub SavePhoto(filename As String, rstMain As Recordset, FieldName As String, SizeField As String)
On Error GoTo Handler
Dim file_num As String
Dim file_length As Long
Dim bytes() As Byte
Dim num_blocks As Long
Dim left_over As Long
Dim block_num As Long
file_num = FreeFile
Open filename For Binary Access Read As #file_num
file_length = LOF(file_num)
If file_length > 0 Then
num_blocks = file_length / BLOCK_SIZE
left_over = file_length Mod BLOCK_SIZE
rstMain(SizeField) = file_length
ReDim bytes(BLOCK_SIZE)
For block_num = 1 To num_blocks
Get #file_num, , bytes()
rstMain(FieldName).AppendChunk bytes()
Next block_num
If left_over > 0 Then
ReDim bytes(left_over)
Get #file_num, , bytes()
rstMain(FieldName).AppendChunk bytes()
End If
'rstEmployee.Update
Close #file_num
End If
'' Reading as this:
Public Sub FillPhoto(rstMain As Recordset, PFName As String, SizeField As String, picEmp As PictureBox)
On Error GoTo Handler
Dim bytes() As Byte
Dim file_name As String
Dim file_num As Integer
Dim file_length As Long
Dim num_blocks As Long
Dim left_over As Long
Dim block_num As Long
Dim hgt As Single
Screen.MousePointer = vbHourglass
DoEvents
file_name = TemporaryFileName()
file_num = FreeFile
Open file_name For Binary As #file_num
file_length = rstMain(SizeField)
num_blocks = file_length / BLOCK_SIZE
left_over = file_length Mod BLOCK_SIZE
For block_num = 1 To num_blocks
bytes() = rstMain(PFName).GetChunk(BLOCK_SIZE)
Put #file_num, , bytes()
Next block_num
If left_over > 0 Then
bytes() = rstMain(PFName).GetChunk(left_over)
Put #file_num, , bytes()
End If
Close #file_num
picEmp.Picture = LoadPicture(file_name)
Screen.MousePointer = vbDefault
Exit Sub
Handler:
Debug.Print Err.Description
Resume Next
End Sub
I Sucessful in extracting to front-end. But while comming to Crystal reports,
I am not able to retrivew this particuar filed.
Please Help me in this issue,....
Thank you,
Regards,
Shiva Kumar. J
(Pending Research) How To Read To End Of Line "Notepad Application"
I'm working with Gerber files and trying to re-format the files to an Excel workbook and five worksheets. Worksheets are going to be named "Top Copper", "Bottom Copper", "READ-ME", "Drill" and "Data Ready".
To import the data straight to Excel is fairly easy to do, but I need to use a program to place parts of the file into sections "cells" and "rows". I haven't been able to code a program to define a logic statement agreement to impliment this yet.
Heres just one example.
Code:
X-1800Y+3000D01*
You see a line of G-code. All lines consist of X and Y" in some state, where "X" can be -X, +X and "Y" can be -Y, +Y.
My idea is to do something as follows:
(A1,1) = X-
(B1,1) = 1800 "Note leading zeros are suppressed"
(C1,1) = Y+
(D1,1) = 3000 "Note leading zeros are suppressed"
(E1,1) = D03
Some ideas? I tried using "If" statements, but that just returned the string. I'm now trying to use a set of case statements, but that seems to make the the problem harder. Now the code is very large and without problem solving capabilities included, such as (E1,1).
I having so many problems with all the different things going on with the format that I don't know where to start coding the application - Please refer to my other thread of the g code sample.
Copy All Text From Textbox, Open Notepad, And Automatically Paste To New Notepad Shee
Hello everyone.
I am trying to copy all text, that is already in the textbox, to a new notepad sheet.
Example:
Step 1. Copy all text in Text1 box to clipboard.
Step 2. Open Notepad
Step 3. Paste clipboard to notepad.
All this should be done with one click of a button.
I get as far as copying everything to the clipboard, and it even opens up notepad, but I still have to manually paste (CTRL-V) into notepad.
I would even like it to ask me what name to save it as as well as where to save it at...just like the Save As function in Word or something.
Here is what I have so far.
Private Sub cmdCopytoClipboard_Click()
Dim MyAppID
Clipboard.Clear
Clipboard.SetText Text1.Text
MyAppID = Shell("NOTEPAD.EXE", 1)
AppActivate MyAppID
MyAppID = Clipboard.GetText()
End Sub
Notepad To Access,Grid And Back To Notepad
Hi,
i hav a notepad where there are many lines stored in it.
i need it to separate it as each word(; as separtor).
actually there are 50 columns in Access as backend with various datatypes(49 for data and 1 for end of file........two boxes).
so after 50 countings are identified, it is considered as first record. and then data for second record starts.
after saving to the backend Access, i need to view the content in DataGrid(VB6) where editing of records is permitted.so after editing and while saving it to Access,i need the change to be reflected in Notepad also(with the same format as ; as separator between records and two boxes for end of record).
Plz help me to solve this...............its really urgent!!!
NOTE: Attached one.txt for sample and the backend Access table.
Print A File In Edit.com N Close Edit.com??
i've to send information to edit.com to print a file!!!thx to someone i can open edit.com and browse the file!!i use sendkeys to print the file but it doesn't work can anyone pls help me!!how i can send the information to activate print and then close the editor!!!
to open the edit.com and browse the file it's like that
r = shell("edit.com the path of my file)
appactivate r
i've used sendkeys but it doesn't work!!!can anyone help me how can i print the file and close the edit.com!!pls
thx in advance
I Cant Edit A Form But I Can Edit The Source!
Hey.
I have a form which I cant move, resize etc the controls on it but i can edit the code!When I choose a control on it the resize dots become white...
And the form is not read only(i right clicked in windows explorer at the form and then went to propeties)
Why is this happening?
Thanks
Edit Add / Edit In Progress
I am having some trouble get the functionality of one of my buttons working properly.
When i click the ok button, i need it to search an Access DB to see if the record exists. If the record exists i want to pop up a message box asking if you want to edit the record or not. If the response is no then i want to have them re-enter the information into the text fields, but if they answer yes that they want to edit it, i want to populate the data from the access DB onto the screen.
I have that working, but my problem is that if they answer yes that they want to edit the information. I then populate the screen, but after they finish their editing, they click OK and get the same question asked.
I am redoing an old form that used data controls, the code that was used before to accomplish what i need goes like this:
VB Code:
Private Sub cmdOK_Click() ' Purpose: Calls validation routines and writes the record to the database. On Error GoTo cmdOK_ClickHandler If ValPrimaryFields() Then If datBatchHeader.EditMode = dbEditAdd Then AddRecord ElseIf datBatchHeader.EditMode = dbEditInProgress Then If ValSecondaryFields() Then WriteHeaderRecord End If End If End If Exit SubcmdOK_ClickHandler: HandleRunTimeErrorEnd Sub
I am using Select's instead of the data control.
Basically what i need is a way to ask if they want to edit once and if they answer yes, then the next time they hit OK, then should be proceeded to the next form and not asked the same question again
Thanks for the help in advance
Shell Works With: "notepad.exe" Or "xyz.txt" But Not: "notepad.exe Xyz.txt&
I want my code to emulate the "Start...Run" Windows function; e.g. running either "filename.xyz" or "application.exe filename.xyz" should open "filename.xyz" with its associated program (application.exe).
This code works fine with "filename.xyz" but plays dead with "application.exe filename.xyz".
Any help would be appreciated.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Public Sub execute(x As String)
ShellExecute MAINForm.hwnd, vbNullString, x, vbNullString, vbNullString, SW_SHOWNORMAL
vbNullString; SW_SHOWNORMAL
End Sub
NotePad
I have a notepad that I have been working on...I seem to be having a problem getting it to save and then open that file another time..or in any other program...Also when I open a txt document that I made in another program (i.e. Microsoft Notepad) it only shows the first line of whats in there...Can yyou help me on fixing those problems? (I am using CommonDialog for the open and save
Notepad Help...
Thanx in advanced for your time and help...
OK, so im doing this application that searches "example.dat" for errors, which I use notepad to open it.
See Attached image "example.jpg"
Lets say I wanted the "blue" selected section to be compared with an imput mask like XXX.XX. If the format its not like that, the error appears in a listbox or message box or whatever, telling me that the error is in line X, Column X... And also I want an error to be given if the first # selected in blue in "example 2" is out of sequence.
Is this possible to do??
If im asking 2 much just let me know, again, I appreciate your help very much.
Help With Notepad
I am trying to write the following line on notepad when the user clicks a button and then save it:
511,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15, 15,15,15,15,15,15,15,15,15,15,0,
can anyone help? im not sure where to start, i got the sendkeys to work but i dont know how to save it to a specified DIR. thanks!
VB And Notepad
Hi
I have wrote a vb program that will search a file for a specific string and then add it to a list. I then modified this file so that it would look duplicate lines in a file and display them. This all works except on one type of file I am trying to check. The only difference with the files that work and the file that doesn't is that when I open the file doesn't work properly, in note pad it is displayed as one continuous line of text and in wordpad it is displayed as on different lines. The files that work when opened are displayed in both notepad and wordpad as seperate lines. I'm not quite sure why this is and was looking for some pointers.
Cheers
Lee
Vb In Notepad?
is it possible to use vb codes in notepad or the programm i use "editpro v2"
?
Notepad
How to I make my program open Notepad as a MDIChild in my MDIForum?
Notepad In VB6
I am having trouble trying to re-create notepad in VB6. Is there a way to call the pagesetup function inside notepad? Also, how can i get the form to scroll. My task is to recreate notepad and make it have all the functionality of microsoft's version.
|
TRACKER
