/ 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
Flytte formen
Fra : Spacemann'


Dato : 12-06-01 22:25

Hej alle sammen

Jeg håber virkelig der er en der kan hjælpe !!

Jeg har laver et program uden "border" så den der blå linie for oven er væk.

Mit spørgsmål er så hvordan jeg kan flytte rundt på formen ??

M.V.H.
Stefan Larsen



 
 
Gigasoft Danmark (12-06-2001)
Kommentar
Fra : Gigasoft Danmark


Dato : 12-06-01 23:31


"Spacemann'" <spacemann@mail.dk> wrote in message
news:9g618l$1cp$1@news.inet.tele.dk...
> Hej alle sammen
>
> Jeg håber virkelig der er en der kan hjælpe !!
>
> Jeg har laver et program uden "border" så den der blå linie for oven er
væk.
>
> Mit spørgsmål er så hvordan jeg kan flytte rundt på formen ??
>
> M.V.H.
> Stefan Larsen

Form1.top = værdi
Form.Left = Værdi

Så kan du Evt lave et keypress således at når du jolder en bestemt taste
kombination nede følger skærmen musen.
Kræver lidt kodning hvor du fanger koordinaterne med musen og så. F.eks
sætter det som center af din form.

Jeg har lidt kode her som jeg har brugt i et program til at hindre screen
dump.
Det kan du nok omskrive således at du kan anvende det til dit formål:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim ShiftTest As Integer

ShiftTest = Shift And 7
Select Case ShiftTest
Case 1 Or vbShiftMask
'Print "You pressed the SHIFT key."
Case 2 Or vbCtrlMask
'Print "You pressed the CTRL key."
Case 4 Or vbAltMask
'Print "You pressed the ALT key."
Call Forsvar1


Case 3
'Print "You pressed both SHIFT and CTRL."
Case 5
'Print "You pressed both SHIFT and ALT."
Case 6
'Print "You pressed both CTRL and ALT."
Case 7
'Print "You pressed SHIFT, CTRL, and ALT."
Call Forsvar1

End Select

End Sub


--
Med venlig hilsen
Gigasoft Danmark
Bjarne Østergård
NYHED: http://www.gigasoft.dk/dks/
www.gigasoft.dk E-mail: boe@gigasoft.dk
Tlf. 86 49 64 04



Kim Pedersen [vbCode~ (13-06-2001)
Kommentar
Fra : Kim Pedersen [vbCode~


Dato : 13-06-01 07:09

Hej Stefan

> Jeg håber virkelig der er en der kan hjælpe !!
>
> Jeg har laver et program uden "border" så den der blå linie for oven
er væk.
>
> Mit spørgsmål er så hvordan jeg kan flytte rundt på formen ??

Du kan lave en fake titelbar... Dvs når venstre museknap f.eks. er
trykken ned på formen så kan den flyttes... Jeg har et eksempel på min
hjemmside på:

http://hjem.get2net.dk/vcoders/cm/tips/forms_faketitlebar.htm

Hilsen/Best Regards
Kim Pedersen, vbCode Magician
http://hjem.get2net.dk/vcoders/cm
ICQ: 62990889



Ebbe (15-06-2001)
Kommentar
Fra : Ebbe


Dato : 15-06-01 11:07

Sådan her:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Static XX, YY, kL As Long
If Not Button = 0 Then
If kL = 0 Then
XX = X
YY = Y
End If
Me.Left = Me.Left + (X - XX)
Me.Top = Me.Top + (Y - YY)
kL = 1
Else
XX = 0
kL = 0
YY = 0
End If
End Sub

----------------------------
Ebbe fra Skummer.com
Dit sted med øl...

"Spacemann'" <spacemann@mail.dk> skrev i en meddelelse
news:9g618l$1cp$1@news.inet.tele.dk...
> Hej alle sammen
>
> Jeg håber virkelig der er en der kan hjælpe !!
>
> Jeg har laver et program uden "border" så den der blå linie for oven er
væk.
>
> Mit spørgsmål er så hvordan jeg kan flytte rundt på formen ??
>
> M.V.H.
> Stefan Larsen
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste