Notifikationer

Markér alle som læst Log ud

coldrayie Nybegynder

03. september 2001 - 13:16 Der er 8 kommentarer og
3 løsninger

Hvordan får jeg det til at virke?

Jeg har sådan en fyr her:

-------------------------
Form1
-------------------------

Public Sub create_Click()
Dim intMsg As String
Dim addedText As String
Dim path As String

path = InputBox(\"Save file as:\")
Open \"\" & path & \"\" For Output As #1
addedText = addNew.Text
Print #1, addedText
Form2.Show

Close #1
End Sub

-------------------------

Men så vil jeg have den der \'path\' overført til form2??..hvordan gør jeg det?

-------------------------
Form2
-------------------------

Private Sub No_Click()
Form2.Hide
End Sub

Private Sub Yes_Click()
Shell (\"\" & path & \"\")
Form2.Hide
End Sub

-------------------------

...tak på forhånd!!

Synes godt om

coldrayie Nybegynder

03. september 2001 - 13:17 #1

når jeg trykker på knappen yes i form2 så siger den \'file not found\' fordi at path ikke har en værdi?

Synes godt om

coldrayie Nybegynder

03. september 2001 - 13:19 #2

og forresten..hvordan kan jeg lave en knap som indsætter tegnet \'<\' der hvor makøren er i addNew.Text textboxen??... :)

Synes godt om

proaccess Nybegynder

03. september 2001 - 13:21 #3

Enten skal Path defineres globalt, eller du kan \"snyde\" ved at overføre den som .tag:

Public Sub create_Click()
Dim intMsg As String
Dim addedText As String
Dim path As String

path = InputBox(\"Save file as:\")
Open \"\" & path & \"\" For Output As #1
addedText = addNew.Text
Print #1, addedText
Form2.Tag=path
Form2.Show

Close #1
End Sub

Private Sub No_Click()
Form2.Hide
End Sub

Private Sub Yes_Click()
Shell (\"\" & Form2.Tag & \"\")
Form2.Hide
End Sub

Synes godt om

coldrayie Nybegynder

03. september 2001 - 13:48 #4

Nu siger den squ:

Invalid procedure call or argument :(

Synes godt om

coldrayie Nybegynder

03. september 2001 - 13:49 #5

og highlighter:

Shell (\"\" & Form2.Tag & \"\")

Synes godt om

bernhof Nybegynder

03. september 2001 - 17:01 #6

Du skal dimensionere path som public variabel øverst i Form1 koden istedet for inde i create_Click() proceduren - således:

Public Path As String

Herefter kalder du Form1.Path istedet:

Private Sub Yes_Click()
Shell Form1.Path
Form2.Hide
End Sub

Vedr. dit andet spørgsmål laver du en knap ved navn \"indsaet\" og skriver følgende i koden:

Private Sub indsaet_Click()
addNew.SelText = \"<\"
End Sub

Synes godt om

sjh Nybegynder

03. september 2001 - 19:50 #7

Det skulle vel ikke være sådan du mener.

\'---------------------------- Form1 ----------------------------
Private Sub Create_Click()
Dim Path As String
Path = InputBox(\"Save file as:\", , \"C:\\Test.txt\")
Open \"\" & Path & \"\" For Output As #1
Print #1, addNew.Text
Close #1
Form2.AddPath Path
Form2.Show
End Sub
\'---------------------------- Form1 ----------------------------

\'---------------------------- Form2 ----------------------------
Dim Form2Path As String

Function AddPath(Form1Path As String)
Form2Path = Form1Path
End Function

Private Sub No_Click()
Unload Me
End Sub

Private Sub Yes_Click()
Shell \"NOTEPAD.EXE \" & Form2Path, vbNormalFocus
Unload Me
End Sub
\'---------------------------- Form2 ----------------------------

Synes godt om

sjh Nybegynder

03. september 2001 - 22:05 #8

Hvis du skal tilføje teksten så er det sådan.

\'---------------------------- Form1 ----------------------------
Private Sub Create_Click()
Dim Path As String
Path = InputBox(\"Save file as:\", , \"C:\\Test.txt\")
Open \"\" & Path & \"\" For Binary As #1
Put #1, FileLen(Path) + 1, addNew.Text & vbCrLf
Close #1
Form2.AddPath Path
Form2.Show
End Sub
\'---------------------------- Form1 ----------------------------

Synes godt om

coldrayie Nybegynder

05. september 2001 - 10:48 #9

takker for alle de mange svar..de virkede allesammen (næsten da :)

Synes godt om

coldrayie Nybegynder

05. september 2001 - 11:09 #10

forresten: hvis der er nogle som vil være så venlige at svare på det her::

Private Sub indsaet_Click()
addNew.SelText = \"<html><body bgcolor=\'white\'></body></html>\"
End Sub

hvordan kan jeg lave en ny linie så alle de ting ikke kommer til at stå på samme linie??

og har lige en ting mere, jeg har lavet en view knap i form1, og slettet form2..hvordan får jeg så den der view ting til er virke??::

Public Sub save_Click()
Dim Path As String
Path = InputBox(\"Save file as:\", , \"C:\\file.html\")
Open \"\" & Path & \"\" For Output As #1
Print #1, addNew.Text
Close #1
End Sub

----

Private Sub view_Click()
Shell \"C:\\Programmer\\Internet Explorer\\IEXPLORE.EXE \" & Path, vbNormalFocus
End Sub

(problemer med den der path...virker ikke)

Synes godt om

cellaneous Nybegynder

15. september 2001 - 23:26 #11

http://www.eksperten.dk/spm/106029

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS