En form køre op fra højre hjørne...?

Du skal bruge en timer, den tikker med millisekunder.  Sæt værdien til f.eks. 200 (5 gange i sekundet).

Under form.load må du positionere formen nederst til højre:

form1.top = 7000
form1.left = 11000

Værdierne afhænger af din skærmopløsning

Timer1_Timer()
  if form1.top > 4000 then goto spring
  form1.top = form1.top -10    'twips
spring:
  if form1.left > 3000 then exit sub
  form1.left = form1.left = form1.left -7
end sub 

Du må finde ud af hvad værdierne skal være for at formen standser dér du vil.

M.v.h.  Jørn

Kan overhovdet ikke fatte det!:-(
Kan du ikke skrive hvad jeg præsis skal skrive i koden?

Er det?
Private Sub Form_Load()
Form1.Top = 7000
Form1.Left = 11000
End Sub

Private Sub Timer1_Timer()
Timer1_Timer()
  If Form1.Top > 4000 Then GoTo spring
  Form1.Top = Form1.Top - 200  'twips
spring:
  If Form1.Left > 3000 Then Exit Sub
  Form1.Left = Form1.Left = Form1.Left - 7
End Sub

Eller hvad? - det virker ikke på min computer!

/Firehat

Ps. min skærm opløsning er 1024 x 768

Form1.Top = 8999
Form1.Left = 10589

- så starter den det rigtige sted!

Private Sub Form_Load()
Form1.Top = 8999
Form1.Left = 10589
End Sub
Private Sub Timer1_Timer()
  If Form1.Top > 10589 Then GoTo spring
  Form1.Top = Form1.Top - 10 ' twips
spring:
  If Form1.Left > 10589 Then Exit Sub
  Form1.Left = Form1.Left = Form1.Left - 7
End Sub

Er det rigtigt?

Hvad er fejlen?

Hej.  Jeg laver et eksempel til dig

M.v.h.  Jørn

TAK!

Oplys mail adr. så sender jeg projektet som zip, det fylder 5 kB.  Jeg har sat timeren til 25 millisek. og her er koden

Private Sub Command1_Click()
  Form1.Top = 10000
  Form1.Left = 14500
End Sub

Private Sub Form_Load()
  Form1.Top = 10000
  Form1.Left = 14500
End Sub

Private Sub Timer1_Timer()
  If Form1.Top < 4000 Then Exit Sub
  Form1.Top = Form1.Top - 150
  Form1.Left = Form1.Left - 180
 
End Sub

M.v.h.  Jørn

firehat89@hotmail.com

Kan ikke få den kode til at virke! - venter spændt!

I min første eksempel havde jeg sat 'større end' for at standse formen et sted på skærmen, det skal være 'mindre end', det er det også ovenfor.
Eksemplet fungerer hos mig, et er sendt nu til hotmail.
 
M.v.h.  Jørn

Har lige fået den! - ser på det!

Det virker jo PERFEKT! Tak!

Kan du så også sige mig hvordan man få vindue til at lukke efter 30 sek fx.?

Du kan bruge samme timer, og lade den forøge en variabel med 1 hver gang den slår.
Bruger du 25 millisekunder, skal talletnå op 40 x 30 = 1200, så er der gået 30 sekunder.

Du kan også lave en timer mere der bare tæller med 1000 millisekunder og så når din variabel når 30 skriver du:

If var1 = 30 then end

M.v.h.  Jørn

Hvordan laver jeg alt det med hvor meget den tæller?

WoW - har fundet en anden løsning men du må da godt fortælle det andet hehe...

Har sat pointne op til 50 - kan du så også sige hvordan afspiller en lyd?

Det er det sidste spm!

Tak!

/Firehat

hva' vil du hellere bare ha' dine point nu?