[vb 6] Ok even tussendoor...

[Verwijderd]

ben het even vergeten weet ook niet hoe ik het zo snel moet opzoeken op msdn.

Maar als ik een variabele heb in bijv. form2 hoe kan ik die dan meenemen naar form1?

[Coltrui]

[edit]
ow vb...
Ik gebruikte altijd een aparte module om globale variabelen in te declareren.

Public stringetje As String

[Aerox.2000]

form1.Textvlak1.Text = "tekst" of niet?

[Verwijderd]

Op maandag 10 december 2001 22:57 schreef Aerox.2000 het volgende:
form1.Textvlak1.Text = "tekst" of niet?

Ik zal het morgen eens proberen zo iets als dit staat mij wel bij ja ik ga eerst

[.GoO]

ik heb ook nog een vraagje wat ik niet echt de moeite vond om een nieuw topic voor te openen maar wat ik toch even wilde weten:

code:

Open App.Path & "\Log\logfile.txt" For Output As #1
Print #1, Date & Space(1) & Time & vbTab & "User"
& Space(1) & User & Space(1) &
"logged in with password" & Space(1) & Password

Close #1

Bij die code schrijft ie maar 1 regel in de text file, en die wordt steeds overschreven.. ik wil dus dat die regel steeds blijft staan en de nieuwe regel bovenaan komt... misschien een enorme n00b vraag, maar hoe doe ik dat?

[stylee]

tis weer een tijdje geleden maar volgens mij moet dit werken:

code:

Open For Append

[.GoO]

Op maandag 10 december 2001 23:26 schreef stylee het volgende:
tis weer een tijdje geleden maar volgens mij moet dit werken:

code:

Open For Append

Dat is 'm! tnx man

[.GoO]

nog 1 ding.. nu zet ie de nieuwste steeds onderaan, is het ook mogelijk om de nieuwste steeds bovenaan te laten zetten

-edit- en nog een ding, is het mogelijk om een text file via VB meteen in kladblok ofzo te laden? of in een listbox oid?

[Phenomenon]

Volgens mij gewoon shellen naar notepad.exe met daarachter het bestandsnaam.

[blijhoofd_bennie]

Op maandag 10 december 2001 23:31 schreef devv05 het volgende:
nog 1 ding.. nu zet ie de nieuwste steeds onderaan, is het ook mogelijk om de nieuwste steeds bovenaan te laten zetten

-edit- en nog een ding, is het mogelijk om een text file via VB meteen in kladblok ofzo te laden? of in een listbox oid?

Dat laaste kan wel, was iets met een #... (het je niet veel aan weet het...) heb de code helaas zo niet bij de hand, maar kon je alles inlezen (ok als je het begrijpt is weer wat anders

[.GoO]

Op dinsdag 11 december 2001 00:01 schreef Peter1978Thuis het volgende:
Volgens mij gewoon shellen naar notepad.exe met daarachter het bestandsnaam.

Heb je ook ff een voorbeeldje ofzo? want weet juist de code daarvoor niet..

-edit- Ik probeerde:

code:

Shell("c:\windows\notepad.exe", vbNormalFocus) As Double

en dan geeft ie de error:

code:

Compile Error: Statement invalid outside type block

Wat is er fout aan, en als ie notepad eenmaal opent, hoe verwijs ik dan direct naar die txt file?

[.GoO]

Op dinsdag 11 december 2001 00:01 schreef blijhoofd_bennie het volgende:

[..]

Dat laaste kan wel, was iets met een #... (het je niet veel aan weet het...) heb de code helaas zo niet bij de hand, maar kon je alles inlezen (ok als je het begrijpt is weer wat anders

Uhm beetje vaag Ik heb opzich liever dat elke lijn gewoon bovenaan de text file komt.. dat moet toch wel mogelijk zijn lijkt me? dan is het ook simpel om een listbox met de logfile te maken.. maar hoe krijg ik elke nieuwe lijn bovenaan.. anyone??

[stylee]

- lees je gehele textbestand in (in bijv een string)
- voeg regel toe aan begin van de string
- schrijf gehele string terug naar bestand

Gebruik ff de help op het Open statement, dat moet je wel een endje op weg helpen.

Je zou ook idd alle regels in kunnen lezen in een listbox, vervolgens een item toevoegen met als index 0 en de gehele listbox terugschrijven, tis maar wat jij wilt.

code:

Shell("c:\windows\notepad.exe " & app.path & "\Log\logfile.txt", vbNormalFocus)

zou het moeten doen

hth

[.GoO]

Op dinsdag 11 december 2001 00:19 schreef stylee het volgende:
- lees je gehele textbestand in (in bijv een string)
- voeg regel toe aan begin van de string
- schrijf gehele string terug naar bestand

Gebruik ff de help op het Open statement, dat moet je wel een endje op weg helpen.

Je zou ook idd alle regels in kunnen lezen in een listbox, vervolgens een item toevoegen met als index 0 en de gehele listbox terugschrijven, tis maar wat jij wilt.

code:

Shell("c:\windows\notepad.exe " & app.path & "\Log\logfile.txt", vbNormalFocus)

zou het moeten doen

hth

Die code geeft een syntax error
Hij vraagt om een = ...

[jelmervos]

Op dinsdag 11 december 2001 00:22 schreef devv05 het volgende:

[..]

Die code geeft een syntax error
Hij vraagt om een = ...

Handle ff opslaan in een var.

[.GoO]

ja ok zover was ik ook al, maar hoe start je die dan op?

-edit- heb het nu zo:

code:

Private Sub mnuLogs_Click()

Dim OpenLog As Single

OpenLog = Shell("c:\windows\notepad.exe " & App.Path & "\Log\logfile.txt", vbNormalFocus)

Shell (OpenLog)

End Sub

Nu zegt ie "file not found" maar opent wel notepad + die txtfile.. als ik op debug klik springt ie naar de regel
Shell (OpenLog)

[jelmervos]

Op dinsdag 11 december 2001 00:24 schreef devv05 het volgende:
ja ok zover was ik ook al, maar hoe start je die dan op?

Doet Shell toch? Die handle is gewoon de handle naar de opgestarte applicatie.

[.GoO]

Op dinsdag 11 december 2001 00:26 schreef jelmervos het volgende:

[..]

Doet Shell toch? Die handle is gewoon de handle naar de opgestarte applicatie.

Ja maar hoe kan het dan dat ie zegt dat ie die file niet kan vinden terwijl ie m wel opent?

[Verwijderd]

code:

Shell "notepad.exe " & App.Path & "\tekstbestand.txt", vbNormalFocus

Deze werkt wel

[Aerox.2000]

code:

Private Sub mnuLogs_Click()
Dim OpenLog As Single

OpenLog = Shell("c:\windows\notepad.exe " & App.Path & "\Log\logfile.txt", vbNormalFocus)

End Sub

of

code:

Private Sub mnuLogs_Click()
Dim OpenLog As Single

Shell "c:\windows\notepad.exe " & App.Path & "\Log\logfile.txt"

End Sub

[Korben]

Zucht. Dan zal ik maar ff een stukje code posten voor wat ie eerst wou...

code:

Dim lpFileContent As String, lpLine As String
Dim hFile As Integer

hFile = FreeFile
Open "blaat.txt" For Input As #hFile

Do Until EOF(hFile)
   Line Input #hFile, lpLine

   lpFileContent = lpFileContent & lpLine & vbCrLf
Loop

Close hFile

Open "blaat.txt" For Output As #hFile

Print #hFile, "text die bovenaan moet komen"
Print #hFile, lpFileContent;

Close hFile

[Verwijderd]

Op dinsdag 11 december 2001 00:29 schreef devv05 het volgende:
Ja maar hoe kan het dan dat ie zegt dat ie die file niet kan vinden terwijl ie m wel opent?

Dat je de handle in een var moest stoppen wilde niet zeggen dat je er nog iets mee behoefde te doen. Niet dus. Het opstarten van notepad gebeurt al met je eerste Shell(..) aanroep.

[.GoO]

ok bedankt allemaal voor jullie hulp, het werkt nu!

[Verwijderd]

Voorbeeldje van die file, maar dan als snellere weg naar Rome:

dim strSchrijfweg as string

Open "c:\blabla.txt" For Binary As #1

strSchrijfweg = Space(LOF(1))
Get #1, , strSchrijfweg

Close #1

strSchrijfweg = "Jouwstringetje" & vbcrlf & strSchrijfweg

Open "c:\blabla.txt" for output as #1

print #1, strSchrijfweg

close #1

[Korben]

Op dinsdag 11 december 2001 16:21 schreef apottjewijd het volgende:
Voorbeeldje van die file, maar dan als snellere weg naar Rome:

dim strSchrijfweg as string

Open "c:\blabla.txt" For Binary As #1

strSchrijfweg = Space(LOF(1))
Get #1, , strSchrijfweg

Close #1

strSchrijfweg = "Jouwstringetje" & vbcrlf & strSchrijfweg

Open "c:\blabla.txt" for output as #1

print #1, strSchrijfweg

close #1

Hum ik denk dat je je bestand For Random moet openen, niet For Binary.

[Verwijderd]

Onderstaande kan hier nog wel dacht ik zo, om er weer een nieuw topic voor te openen

Ik wil graag met Visual Basic 6 mijn desktop achtergrond instellen, ik heb net een tijdje rondgeneust met mijn modempje op de msdn site van Microsoft, gaat wel irriteren al dat gewacht en je kunt het niet vinden.

Zo weet iemand hier wat meer informatie over het instellen van de desktop achtergrond?

[Verwijderd]

^^ schop ^^

[mulder]

You need the SystemParametersInfo API function and the SPI_SETDESKWALLPAPER constant.
For this you will need the following constants and function declaration...

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1

Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer

You then call the function as follows...

Result% = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal BMPFile$, SPIFlags%)

... where SPIFlags% is 0 if the change is not to be made permanent, or '(SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)' if it is to be carried across into future Windows sessions.

BRON:www.google.com

[Exterazzo]

Op zondag 16 december 2001 21:20 schreef xmvl33 het volgende:
Onderstaande kan hier nog wel dacht ik zo, om er weer een nieuw topic voor te openen

Ik wil graag met Visual Basic 6 mijn desktop achtergrond instellen, ik heb net een tijdje rondgeneust met mijn modempje op de msdn site van Microsoft, gaat wel irriteren al dat gewacht en je kunt het niet vinden.

Zo weet iemand hier wat meer informatie over het instellen van de desktop achtergrond?

Zo deze moet je hebben:
Declarations:

code:

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20

Code:

code:

Dim lngSuccess As Long
Dim strBitmapImage As String

strBitmapImage = "c:\windows\straw.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

[Korben]

Op zondag 16 december 2001 21:56 schreef xmvl33 het volgende:
^^ schop ^^

Hum het is errug onbeleefd om na 36 minuten al je topic omhoog te schoppen...

[Verwijderd]

Op maandag 17 december 2001 12:23 schreef Xenophage het volgende:

[..]

Hum het is errug onbeleefd om na 36 minuten al je topic omhoog te schoppen...

ach ja wat zal ik zeggen...

Ik was die avond gewoon met vb bezig en het lukte me niet echt, bovendien kon ik de info niet vinden op de msdn site. Maaruh ik zal er denken

[Verwijderd]

Op woensdag 12 december 2001 13:37 schreef Xenophage het volgende:

[..]

Hum ik denk dat je je bestand For Random moet openen, niet For Binary.

Nope, dit werkt...