|
| Autor |
Nachricht |
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
|
| |
|
 |
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 27.11.2007, 14:18 |
|
|
Jo ich finds nice! Vor allem kann man, wenn mans weiter ausbaut, ein richtig geiles game draus machen 
 |
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 27.11.2007, 14:20 |
|
|
Naja also ich hatte mir dadrunter schon mehr vorgestellt...
Weil du hast eigentlich nur erklärt wie man einmal die Picturebox durch das Bild laufen lässt und wie man zählt wie oft man drauf geklickt hat.
Was mir fehlt:
Die getroffene Picturebox verschwinden lassen
immer wieder neue Pictureboxen auftauchen lassen
den Cursor verändern (zu einem Zielkreuz)
Vollbild Modus
Also zu einem richtigen Spiel gehört mehr... |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 27.11.2007, 14:21 |
|
|
ähmm mal gelesen simpel.... und außerdem verschwinden lassen für alle die es nich wissen pic.visible = false auftauchen lassen = true zeiger verändern naja.... mouspointer....... also es is simpel...
 |
|
| |
|
|
Ja!lB!rD_
Coder
Anmeldedatum: 09.06.2007
Beiträge: 79
|
Verfasst am: 27.11.2007, 14:31 |
|
|
THX!
Und schon wieder hab ich was dazugelernt
P.S weil ich noch Wissensdurstig bin muss ich nacher wieder in die Schule 
[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 27.11.2007, 15:16 |
|
|
| The-God-of-all hat Folgendes geschrieben: |
Was mir fehlt:
Die getroffene Picturebox verschwinden lassen
immer wieder neue Pictureboxen auftauchen lassen
den Cursor verändern (zu einem Zielkreuz)
Vollbild Modus
|
LOL
nummer 1 deiner wunschliste SAU EINFACH ZU MACHEN!
nummer 2 AUCH
nummer 3 GENAUSO!
nummer4 LOL GENAUSO!
wer n spiel proggen wll beherscht meistens die grundkentnisse damit man sowas ned mehr erläutern muss also echt ^^ |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 27.11.2007, 16:06 |
|
|
Das video soll auch einfach nur erklären wie man anfängt .....
|
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 27.11.2007, 16:13 |
|
|
| King of Chaos hat Folgendes geschrieben: | LOL
nummer 1 deiner wunschliste SAU EINFACH ZU MACHEN!
nummer 2 AUCH
nummer 3 GENAUSO!
nummer4 LOL GENAUSO!
wer n spiel proggen wll beherscht meistens die grundkentnisse damit man sowas ned mehr erläutern muss also echt ^^ |
Zum Vollbild Modus: Wenn das so einfach ist dann poste mal bitte einen Source dazu, das ist nämlich nicht ganz so einfach. Zum rest: ich weis auch wie das geht, mir ist klar, dass das mit einer Zeile Source geht. Und ich gebe dir recht: wer ernsthaft ein Spiel programmieren will wird das alles können, was aber bedeutet das er alles im Tutorial gezeigte auch kann wodurch das Tutorial überflüssig wird. |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 27.11.2007, 16:35 |
|
|
habs hier sind 2 bis 3 einstellungen an der form und 2 sachen im load ereigniss und fertig... selber xD
und zu der ganzen dinkusion hier über hälfte vergessen ect...
kinder ey xD |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 27.11.2007, 16:45 |
|
|
rofl
ne geht ziehmlich einfach wie der code zeigt
schwieriger code hingegen zu dem der unten gepostet wird ^^
Code der Form 1
| Code: |
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Sub Form_load()
If Label1.Caption = "On" Then
Label1.Caption = "Off"
Else
Label1.Caption = "On"
End If
ToggleFullScreen Me
End Sub
Private Sub Form_Resize()
On Error Resume Next
Label1.Move ScaleWidth / 2 - cmdFullScreen.Width / 2, ScaleHeight / 2 - cmdFullScreen.Height / 2, 1215, 375
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Sub Label1_Click()
End Sub |
Module: (name: full)
| Code: | '#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GWL_STYLE = (-16)
Private Const SWP_NOMOVE = &H2
Private Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Sub ToggleFullScreen(frm As Form)
Dim rcWindow As RECT
Dim lRet As Long
lRet = GetWindowRect(frm.hwnd, rcWindow)
lRet = SetWindowLong(frm.hwnd, GWL_STYLE, GetWindowLong(frm.hwnd, GWL_STYLE) Xor WS_CAPTION)
lRet = SetWindowPos(frm.hwnd, 0, 0, 0, rcWindow.Right - rcWindow.Left, rcWindow.Bottom - rcWindow.Top, SWP_NOMOVE)
lRet = SetWindowPos(frm.hwnd, 0, 0, 0, rcWindow.Right - rcWindow.Left + 1, rcWindow.Bottom - rcWindow.Top, SWP_NOMOVE)
If frm.WindowState = 2 Then
frm.WindowState = 0
Else
frm.WindowState = 2
End If
'#####################################
'gemacht für vb-x.org by King of Chaos
'#####################################
'have fun#############################
'#####################################
End Sub
|
@ Miah danke für die verbesserung des codes ^^
Zuletzt bearbeitet von King of Chaos_ am 27.11.2007, 21:11, insgesamt einmal bearbeitet |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 27.11.2007, 17:14 |
|
|
form einstellungen:
AutoScaleMode = None
FormBorderStyle = None
TopMost = True
code:
| Code: | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Location = New Size(0, 0)
Me.Size = New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
End Sub |
hast recht king bin ja schon still... |
|
| |
|
|
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
|
Verfasst am: 27.11.2007, 19:54 |
|
|
| Code: | Private Sub Form_Load()
Me.WindowState = 2
End Sub |
wenn das gemeint is, dann isses verdammt einfach xD |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 27.11.2007, 19:59 |
|
|
| nein ist es nicht die form sollte schon über fen ganzen bildschirm gehen und die task leiste verdecken ^^ nix mit WindowState = 2 da da die taskleiste noch sichtbar bleibt xD |
|
| |
|
|
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 28.11.2007, 10:52 |
|
|
1.§2.6 - Private Nachrichten:
Private Nachrichten bleiben privat. Sie haben im öffentlichen Forumbereich nichts zu suchen!
2. Das nächste mal gibts für alle Verwarnungen. Ihr könnt alle gern eure Meinung sagen, aber sollte einer verbal ausarten, egal ob pm oder nicht, dann gibts ne Verwarnung dafür.
@King of Chaos
Mir ist ziemlich egal ob und wie gut du coden kannst.
Aber mir ist schon länger aufgefallen dass du dich anderen gegenüber gerne aufspielst und ihre Probleme als lächerlich darstellst.
Wäre nett wenn du das unterlassen könntest.
Normal würde ich hier jetzt closen, aber ich komm mal der Bitte nach und lösche hier paar Posts.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
0wned_
Newbie
Anmeldedatum: 02.10.2007
Beiträge: 3
|
Verfasst am: 28.11.2007, 18:56 |
|
|
also ich habe aus dem video-tut was gelernt... ich wusste nicht das man bilder in ne richtung bewegen lassen kann
gut gemacht! |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 28.11.2007, 20:42 |
|
|
und mit + in die andere richtung nach oben is pic.top
|
|
| |
|
|
BONETHUGS333_
Tutorial Leser
Anmeldedatum: 26.10.2007
Beiträge: 26
|
Verfasst am: 29.11.2007, 17:55 |
|
|
Habt ihr ne Idee wie man einen "neuer versuch" button erstellen könnte den mit load und unload gehts nicht (sowie ichs probiert habe^^)
 |
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 29.11.2007, 18:02 |
|
|
| Ganz einfach: du stellst den Zähler auf 0 und stellst bei Pic.left wieder den Startwert ein. Wenn du noch mehr veränderst dann auch die anderen Werte wieder auf die Startwerte. Es wäre auch sinnvoll, den Timer zu stoppen sobald das Bild nicht mehr zu sehen ist. |
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
Verfasst am: 02.12.2007, 00:26 |
|
|
Hab mal wieder alles unwichtige gelöscht -ist ja schrecklich hier....
@swordfish123456:
Mach dafür doch nen eigenen Thread auf das stört hier nur.
@Server-Bling
Posts wie "Was meinste??" oder so in der Art haben hier nix zu suchen, hier gehts um das Videotut und fertig. Wenn ihr Probleme habt macht das doch per PM aus.
Ist btw der erste Thread der schon 2mal ausgemistet wurde.. frag mich warum 
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/ |
|
| |
|
|
aL1ienaire_
Tutorial Leser
Anmeldedatum: 22.08.2007
Beiträge: 35
|
Verfasst am: 06.12.2007, 19:54 |
|
|
| Wenn das Bild ja ganz links am rand ist, wie kann man es machen, dass es sich wieder wiederholt? |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 06.12.2007, 21:15 |
|
|
du machst einfach pic.visible = false und stellst es auf den punkt zurück
|
|
| |
|
|
Registrieren
Login
