Webcontroller og MSDN ?

Invalid Property Value siger den .. trykker jeg på helt står der følgende: The MSDN collection does not exist. Please reinstall MSDN .. :)

er her lidt hjælp ? :) heeh ,, ved godt i ikk er her 24/7, men kan ikk komme videre før jeg har løst det problem .. :)

Har du instaleret MSDN ?

Det ved jeg ikke om der er .. det var et program jeg fik af en ven .. men der står der ikke er :S

hvis du har kaldes selve browseren.. fx webbrowser1

så dobbelt klikker du på din form.. så er du inde i form_load.. betyder at den kode du skriver der, er den funktionen der vil blive dannet når du starter formen/programmet

Private Sub Form_Load()
webbrowser1.navigate "www.google.dk" 'du skal bare udskifte google.dk til din egen
End Sub

og så burde det virke

det kunne jeg jo sige mig selv .. Doh .. heeh .. :) kan du hjælpe mig med det der MSDN ? Hva er MSDN ?

Private Sub Command1_Click()
    wWeb.Navigate "www.google.dk"
End Sub

kan jeg tilføje noget der sån så at knappen forsvinder fra programmet ? altså når man har trykket skal knappen forsvinde .. er det muligt ?

altså... hvis en knap hedder ehm... command1 fx

command1.visible = false

den kode skal du bar sætte ind i knappen.. så når du klikker på knappen forsvinder den selv... altså den blir bar helt usynlig.. ubruglig

okey, jeg ved man sikkert kan finde det her nogen steder på nettet men, hvorn kan jeg sætte et ur ind i programmet ? og evt en lommeregner ..

ja altså.. man sætter jo ikke bare en lommeregner eller et ur ind.. du skal jo kode dem først..

men her er en lommeregner
_____________________________________________________________________________
Dim x As Double
Dim t As String
Dim b As Boolean
Private Sub cmd_Click(Index As Integer)
  txt.Text = txt.Text + CStr(Index)
End Sub
Private Sub cmdpoint_Click()
  If txt.Text = "" And b = False Then
  txt.Text = "0." + txt.Text
  b = True
  ElseIf txt.Text <> "" And b = False Then
  txt.Text = txt.Text + "."
  b = True
  End If
End Sub
Private Sub Cmdc_Click()
  txt.Text = ""
End Sub
Private Sub cmdcross_Click()
  x = txt.Text
  txt.Text = ""
  t = "*"
  b = False
End Sub
Private Sub cmddi_Click()
  x = txt.Text
  txt.Text = ""
  t = "/"
  b = False
End Sub
Private Sub cmdadd_Click()
  x = txt.Text
  txt.Text = ""
  t = "+"
  b = False
End Sub
Private Sub cmdsubtract_Click()
  x = txt.Text
  txt.Text = ""
  t = "-"
  b = False
End Sub
Private Sub cmdequal_Click()
  If t = "+" Then
    txt.Text = Val(x) + Val(txt.Text)
  ElseIf t = "-" Then
    txt.Text = Val(x) - Val(txt.Text)
  ElseIf t = "*" Then
    txt.Text = Val(x) * Val(txt.Text)
  ElseIf t = "/" Then
    If txt.Text = 0 Then MsgBox "Diving by zero", vbCritical, "Error"
    Else
    txt.Text = Val(x) / Val(txt.Text)
    End If
End Sub
_____________________________________________________________--

her et ur

Private Sub Timer1_Timer()
Dim s As String
If InStr(Label7.Caption, ":") > 0 Then
    s = Replace(Label7.Caption, ":", " ", , , vbTextCompare)
    Label7.Caption = s
Else
  Label7.Caption = Format(Time, "h:mm:ss")
End If
End Sub

Hvor henne skal jeg ligge dem ? skal der en action til at udløse dem i en ny form eller ?

ej seriøst... gi mig mine point lol..

du kan da se når der står timer skal du lave et lille ur og når der står label7 skal du lave en label som hedder label7 :)

Ja okey undskyld jeg er lidt newbie inde for faget .. har ikk så meget forståelse inde for VB, jeg har prøvet at ligge et ur ind og en Label der hedder label7 .. men der sker stadig intet ?