 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
Vercetti
How do I cheat?
![]() Reputation: 0
Joined: 17 Nov 2007
Posts: 0
|
 Posted: Tue Jan 01, 2008 7:48 am Post subject: [TUT]Make 3D forms |
 |
|
Add 1 Command Button to your form.
Insert this code to your form:
| Code: | Public Sub ThreeDForm(frmForm As Form)
Const cPi = 3.1415926
Dim intLineWidth As Integer
intLineWidth = 5
Dim intSaveScaleMode As Integer
intSaveScaleMode = frmForm.ScaleMode
frmForm.ScaleMode = 3
Dim intScaleWidth As Integer
Dim intScaleHeight As Integer
intScaleWidth = frmForm.ScaleWidth
intScaleHeight = frmForm.ScaleHeight
frmForm.Cls
frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF
frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF
frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, _
intScaleHeight), &H808080, BF
frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, _
intScaleHeight), &H808080, BF
Dim intCircleWidth As Integer
intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth * intLineWidth)
frmForm.FillStyle = 0
frmForm.FillColor = QBColor(15)
frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), intCircleWidth, _
QBColor(15), -3.1415926, -3.90953745777778
frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), intCircleWidth, _
QBColor(15), -0.78539815, -1.5707963
frmForm.Line (0, intScaleHeight)-(0, 0), 0
frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0
frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0
frmForm.Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0
frmForm.ScaleMode = intSaveScaleMode
End Sub
Private Sub Command1_Click()
'Replace all 'Me' below with the name of the form you want to transform to 3D
ThreeDForm Me
End Sub
Private Sub Form_Resize()
ThreeDForm Me
End Sub
|
Pretty cool trick 
_________________
|
|
| Back to top |
|
 |
Pseudo Xero
I post too much
![]() Reputation: 0
Joined: 16 Feb 2007
Posts: 2607
|
| Posted: Tue Jan 01, 2008 7:55 am Post subject: |
|
|
| Give credits to the writer of this code.
|
|
| Back to top |
|
|
Elec0
Expert Cheater
 Reputation: 0
Joined: 21 Nov 2007
Posts: 188
Location: Out of my mind, back in five minutes.
|
| Posted: Tue Jan 01, 2008 7:59 am Post subject: |
|
|
Cool. This is interesting.
~Elec0
_________________
|
|
| Back to top |
|
|
Symbol
I'm a spammer
![]() Reputation: 0
Joined: 18 Apr 2007
Posts: 5094
Location: Israel.
|
| Posted: Tue Jan 01, 2008 8:57 am Post subject: |
|
|
Can anyone show me a compiled one? I don't have VB and it sounds cool. 
|
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
|
| Back to top |
|
|
Lolkittycat
Advanced Cheater
 Reputation: 0
Joined: 02 Jan 2008
Posts: 50
Location: At a farm
|
| Posted: Wed Jan 02, 2008 12:09 pm Post subject: |
|
|
Cool dude
_________________
Stop piracy, dont be a duche  |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
