|
 | | |
| Autor | Správa |
|---|
B.A.X.O
Užívateľ
Založený: 22.01.2008
Príspevky: 426
Bydlisko: Bratislava - Petržalka
 |
Zdravím. Mám Drag & Drop funkciu na prenášanie prvkov na druhý. Ale nefunguje mi to s formu na form, chcel by som spravit malu hru kde by bol inventar ktory je ale ako samostatný form, čo je ale problém pretože keď mám v jednom forme napr nejaký button a chcem ho preniest za behu aplikacie na druhý, nefunguje to. Co s tým?
kod:
| kód: | Dim top_sur, left_sur As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag vbBeginDrag
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag vbEndDrag
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
Command1.Move X - Command1.Width / 2, _
Y - Command1.Height / 2
Command1.Left = left_sur
Command1.Top = top_sur
End Sub
Private Sub Form_Load()
top_sur = Command1.Top
left_sur = Command1.Left
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Visible = False
End Sub |
skusal som:
| kód: | Private Sub Form2.Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Visible = False
End Sub |
ale bez vysledku. budem vdacny za kazde rady. |
| |
    |
|
Siriuse
Užívateľ
Založený: 23.05.2009
Príspevky: 81
Bydlisko: Michalovce
|  Zaslal: So 30.05.09 17:38 |   |
mas tie form nastavene na MDIForm a MDI child? mas v UNIT cestu k zdrojovemu kodu formulara? |
| |
 |
|
B.A.X.O
Užívateľ
Založený: 22.01.2008
Príspevky: 426
Bydlisko: Bratislava - Petržalka
| | Zaslal: St 03.06.09 14:38 | |
| Siriuse napísal: | | mas tie form nastavene na MDIForm a MDI child? mas v UNIT cestu k zdrojovemu kodu formulara? |
No nie priznám sa že som to robil medzi dvoma normálnymi formami
ale to je už stejne jedno...lebo som to začal riešiť inak |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
