Ersätta TAB
Feb 9
Såhär ersätter man TAB-tecken i Visual Basic.
Stringen = Replace(Stringen, vbTab, " ")
Filed under: Visual Basic 6 | Comments (0)
Archive for the Visual Basic 6 category.
Ta bort all PHP-kod (Funkar givetvis med andra tecken också)
Feb 9
Här är en kod som gör så allt mellan och ?> tas bort. Alltså, all PHP-kod.
Dim HTMLPHP As String, HTML As String
HTMLPHP = "test test" 'Ladda in HTML+PHP-kod
Do While InStr(HTMLPHP, " 0
HTML = HTML & Left(HTMLPHP, InStr(HTMLPHP, "
HTMLPHP = Mid(HTMLPHP, InStr(HTMLPHP, "?>") +2)
Loop
HTML = HTML & HTMLPHP
Textbox1.Text = HTML 'Lägg in texten i textboxen
Denna kod är inte skriven av mig, utan en kille som heter Thomas Roman.
Filed under: Visual Basic 6 | Comments (0)
Pause-funktion för Visual Basic 6
Feb 5
Pause-funktion för Visual Basic 6.
Private Declare Function GetTickCount Lib “kernel32″ () As Long
Public Sub Pause(Seconds As Single)
Dim T As Single
Dim T2 As Single
Dim Num As Single
Num = Seconds * 1000
T = GetTickCount()
T2 = GetTickCount()
Do Until T2 – T >= Num
T2 = GetTickCount()
DoEvents
Loop
End Sub
När man vill använda funktionen skriver man bara Pause (6).
Detta “Pausar” programmet i 6 sekunder.
Filed under: Visual Basic 6 | Comments (0)
Hur man fyller i ett formulär med webbrowser-komponenten
Feb 5
Hur man fyller i ett formulär med webbrowser-komponenten.
Webbrowser.Document.All.FÄLTETSNAMN.Value = “Hej hej!”
Filed under: Visual Basic 6 | Comments (0)
Portaler
-