/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Jeg bliver gak i låget!
Fra : Thomas Løcke


Dato : 30-07-02 15:13

Ok, det her problem er ved at drive mig til vanvid!

Jeg har en form1 med borderstyle 0. Den starter jeg med at plastre udover
hele skærmen sådan her:

hojde = Screen.Height - 400
bredde = Screen.Width
Form1.Move 0, 0, bredde, hojde

De -400 er så den ikke sniger sig nedunder start-baren nede i bunden.

Herefter loader jeg 2 webbrowsere, web1 og web2.

Begge browsere gør jeg sådan her med:

Web1.Move 0, 0, ScaleWidth, ScaleHeight
Web2.Move -20000, 0, ScaleWidth, ScaleHeight

Derefter foretager jeg mine .navigate til de URL'er jeg nu engang definerer.

Nu har jeg så lavet det sådan at når man trykker 1 så viser den web1, og 2
viser web2. Og det virker sådan set fint fint, bortset fra at jeg SKAL
trykke med musen i web1's vindue for at få den funktionalitet. Jeg har
keypreview til True.

Hva' hulen foregår der?

Det virker fint nok hvis jeg sætter web2 til visible=false, men så gider den
tilgengæld ikke loade web2's URL i baggrunden mens jeg læser web1. Jeg kan
heller ikke undlade at foretage en størrelsesændring af web1 og web2, da det
vil gøre at eventuelle URL med java der aflæser og bruger browserens
størrelse kommer med fejl.

Det eneste jeg vil, er at slippe for det museklik i vinduet, og jeg ved at
det må kunne lade sig gøre, for jeg kan sagtens få den til det hvis jeg
laver det lille visible=false trick - men så forsvinder hele tanken med at
en anden URL loader mens jeg læser den første.

Er det her ævl overhovedet til at forstå?

Håber nogen kan hjælpe.

Mvh
Thomas




 
 
Thomas Løcke (30-07-2002)
Kommentar
Fra : Thomas Løcke


Dato : 30-07-02 15:17

Lige en kommentar:

Det jeg vel egentlig har behov for, er at vide hvordan hulen jeg får fokus
tilbage på web1, når web2 har loaded sin URL..

web1.setfocus giver en fejl (invalid procedure call......). Ved ikke
hvorfor.

Mvh
Thomas



Thomas Løcke (30-07-2002)
Kommentar
Fra : Thomas Løcke


Dato : 30-07-02 15:23

What the heck.. Her er min newbie kode.. Det gør det nok lettere og se hvad
jeg gør galt..

Sub url5()
Web1.Move -20000, 0, ScaleWidth, ScaleHeight
Web2.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Sub url4()
Web1.Move -20000, 0, ScaleWidth, ScaleHeight
Web2.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Sub url3()
Web1.Move -20000, 0, ScaleWidth, ScaleHeight
Web2.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Sub url2()
Web1.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Move -20000, 0, ScaleWidth, ScaleHeight
Web2.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Sub url1()
Web2.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Move -20000, 0, ScaleWidth, ScaleHeight
Web1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Sub start()
Web2.Move -20000, 0, ScaleWidth, ScaleHeight
Web2.Navigate links(2)

Web3.Move -20000, 0, ScaleWidth, ScaleHeight
Web3.Navigate links(3)

Web4.Move -20000, 0, ScaleWidth, ScaleHeight
Web4.Navigate links(4)

Web5.Move -20000, 0, ScaleWidth, ScaleHeight
Web5.Navigate links(5)

Web1.Navigate links(1)
Web1.Move 0, 0, ScaleWidth, ScaleHeight

End Sub

Sub loadlinks()
On Error Resume Next
sti = App.Path & "/links.txt"
Open sti For Input As #1
For a = 1 To 5
Line Input #1, links(a)
'MsgBox links(a)
Next a
Close #1
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox KeyCode
If KeyCode = 27 Then Unload Me
If KeyCode = 109 Then Form1.WindowState = 1
If KeyCode = 49 Then url1
If KeyCode = 50 Then url2
If KeyCode = 51 Then url3
If KeyCode = 52 Then url4
If KeyCode = 53 Then url5
End Sub

Private Sub Form_Load()
loadlinks

hojde = Screen.Height - 400
bredde = Screen.Width

Form1.Move 0, 0, bredde, hojde

start
End Sub






preben nielsen (30-07-2002)
Kommentar
Fra : preben nielsen


Dato : 30-07-02 17:46


"Thomas Løcke" <thomas@responsum.dk> skrev i en meddelelse
news:3d46a14c$1@news.wineasy.se...
> What the heck.. Her er min newbie kode.. Det gør det nok lettere
og se hvad
> jeg gør galt..

Nu har jeg genskabt dit program, og der er ingen problemer her.
Det virker uden at jeg skal klikke på noget.

Er du sikker på at der ikke er noget som har taget fokus fra din
form ? Det kan også være derfor din Web1.setfocus giver fejl. Jeg
mener tidligere at have oplevet at man ikke kan sætte fokus på en
control, som ikke er på den form som har focus.

Jeg vil dog sige, at det er en ret upraktisk måde at skifte mellem
browsere på - du kan f.eks. ikke skrive 1,2,3,4 eller 5 i en
textbox længere!


/\ preben nielsen
\/\ prel@post.tele.dk


>
> Sub url5()
> Web1.Move -20000, 0, ScaleWidth, ScaleHeight
> Web2.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Move 0, 0, ScaleWidth, ScaleHeight
> End Sub
>
> Sub url4()
> Web1.Move -20000, 0, ScaleWidth, ScaleHeight
> Web2.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Move 0, 0, ScaleWidth, ScaleHeight
> End Sub
>
> Sub url3()
> Web1.Move -20000, 0, ScaleWidth, ScaleHeight
> Web2.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Move 0, 0, ScaleWidth, ScaleHeight
> End Sub
>
> Sub url2()
> Web1.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Move -20000, 0, ScaleWidth, ScaleHeight
> Web2.Move 0, 0, ScaleWidth, ScaleHeight
> End Sub
>
> Sub url1()
> Web2.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Move -20000, 0, ScaleWidth, ScaleHeight
> Web1.Move 0, 0, ScaleWidth, ScaleHeight
> End Sub
>
> Sub start()
> Web2.Move -20000, 0, ScaleWidth, ScaleHeight
> Web2.Navigate links(2)
>
> Web3.Move -20000, 0, ScaleWidth, ScaleHeight
> Web3.Navigate links(3)
>
> Web4.Move -20000, 0, ScaleWidth, ScaleHeight
> Web4.Navigate links(4)
>
> Web5.Move -20000, 0, ScaleWidth, ScaleHeight
> Web5.Navigate links(5)
>
> Web1.Navigate links(1)
> Web1.Move 0, 0, ScaleWidth, ScaleHeight
>
> End Sub
>
> Sub loadlinks()
> On Error Resume Next
> sti = App.Path & "/links.txt"
> Open sti For Input As #1
> For a = 1 To 5
> Line Input #1, links(a)
> 'MsgBox links(a)
> Next a
> Close #1
> End Sub
>
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> 'MsgBox KeyCode
> If KeyCode = 27 Then Unload Me
> If KeyCode = 109 Then Form1.WindowState = 1
> If KeyCode = 49 Then url1
> If KeyCode = 50 Then url2
> If KeyCode = 51 Then url3
> If KeyCode = 52 Then url4
> If KeyCode = 53 Then url5
> End Sub
>
> Private Sub Form_Load()
> loadlinks
>
> hojde = Screen.Height - 400
> bredde = Screen.Width
>
> Form1.Move 0, 0, bredde, hojde
>
> start
> End Sub
>
>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste