Om jag vill skapa en Webbsida från mitt projekt Jo jag får till det att göra sidan <code> Raden Använd inte Chr() funktionen mer än nödvändigt. Skriv istället: Som det är nu så fungerar det så att programmet kör programmet start.exe Det programmet startas minimerat och utan fokus. Programmet startar i sin tur den webbläsare som är associerad med .htm Om du vill ha fullskärmsläge finns två möjligheter:Html
T.ex att jag får en tabel på sidan + info från en texbox i projektet
Hur gör man då?
Sören Sv: Html
Men när jag vill hämta info från t.ex en texbox
Som ska läggas till på sidan
Då vet jag inte hur jag ska göra!Sv: Html
Option Explicit
Private Sub Command1_Click()
Dim intFile As Integer
intFile = FreeFile
Open "C:\windows\temp\" & App.EXEName & ".tmp.htm" For Output As #intFile
Print #intFile, "<HTML>"
Print #intFile, "<HEAD>"
Print #intFile, "<TITLE>" & Text1.Text & "</TITLE>"
Print #intFile, "</HEAD>"
Print #intFile, "<BODY>"
Print #intFile, "<H1>"
Print #intFile, Text2.Text
Print #intFile, "</H1>"
Print #intFile, Text3.Text
Print #intFile, "</BODY>"
Print #intFile, "</HTML>"
Close #intFile
Shell "start " & Chr(34) & "C:\windows\temp\" & App.EXEName & ".tmp.htm", vbMinimizedNoFocus
End Sub
</code>
Fungerar för mig
PS. Varför jag använder App.EXEName? Smidigast så...Sv: Html
<code>Shell "start " & Chr(34) & "C:\windows\temp\" & App.EXEName & ".tmp.htm", vbMinimizedNoFocus</code>
ska bytas ut mot
<code>Shell "start " & Chr(34) & "C:\windows\temp\" & App.EXEName & ".tmp.htm" & chr(34), vbMinimizedNoFocus</code>
tror jag...Sv: Html
<code>
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Function TempPath() as String
Dim strTemp As String
'Create a buffer
strTemp = String(255, 0)
'Get the temporary path
GetTempPath 255, strTemp
'strip the rest of the buffer
TempPath = Left$(strTemp, InStr(strTemp, vbNullChar) - 1)
End Function
Shell "start """ & TempPath & App.EXEName & ".tmp.htm""", vbMinimizedNoFocus
</code>Sv: Html
1. Bestäm dig för en webbläsare och byt ut start.exe mot din webbläsare, och på slutet ska det stå vbmaximized
2. Kolla registret och leta reda på vad .htm är associerat med, och öppna med det programmet