Advertisement
ASP_Volume2 Complete Applications #40553

Kaun Banega Arabpati ? ( Who want to be a billionaire ? )

1. Credits ~~~~~~~~~~~ Written and developed by Jayant Kumar Gandhi. For more question sets mail me at kbap@jayantgandhi.com Or visit me at www.jayantgandhi.com 2. Installation ~~~~~~~~~~~~~~~~ Unzip the 7 files to any directory and run Kbap.exe Data.dat Data2.dat Egavga.bgi Kbap.exe Pallette.col ReadMe.txt (this file) Softrock.fnt Make sure that all the files are in the same directory. 3. Troubleshooting ~~~~~~~~~~~~~~~~~~~ Make sure that all the files are in the same directory. Also make sure that the file "Data2.dat" is writable. Remove 'Read-Only' attribute if there. Problem will also occur if you have all the files on a 'write-protected' disc. Please report any problem you experience to prob@jayantgandhi.com with "Problems using KBAP" in subject line. Hope that you enjoy the game. If you do then please give me your feedback at feedback@jayantgandhi.com or visit www.jayantgandhi.com.

AI

AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

源代码
original-source
Upload
Follow this steps:
<p>
<b>1) Create new Proyect</b><p>
-Creates a new Windows Aplication Proyect<br>
-Create a Picture Box in your form
<hr>
<b>2) With Picture Box:</b><p>
-Click in Image property and select an image or an animated GIF<br>
-Set Dock property to Fill<br>
-Set SizeMode property to StretchImage<br>
<hr>
<b>3) With Form:</b><p>
-Set WindowState property to Maximized<br>
-Set FormBorderStyle property to None<br>
-Set TopMost property to True<br>
<hr>
<b>4) Now paste this code:</b><p>
 Private xposition As Integer
 Private yposition As Integer
 Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
 Me.Close()
 End
 End Sub
 Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
 If Not PictureBox1.MousePosition.X.Equals(xposition) Or _
 Not PictureBox1.MousePosition.Y.Equals(yposition) Then
  Me.Close()
  End
 End If
 End Sub
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
 xposition = PictureBox1.MousePosition.X
 yposition = PictureBox1.MousePosition.Y
 End Sub
<hr>
<b>5) Generate the proyect</b><p>
<hr>
<b>6) How to test your ScreenSaver</b><p>
-Go to bin folder of your proyect and change executable extension to .scr<br>
E.j. MyScreensaver.exe ----> MyScreensaver.scr<br>
-Copy this file into your system directory<br>
Windows 98: c:\windows\system<br>
Windows NT/2000/XP: c:\winnt\system32<br>
-Now go to Windows Screen Properties (Right mouse button over Desktop) and 
select your screensaver.<br>
-Test it. It Runs!!!<p>
This is a zipped example:
原始评论 (3)
从 Wayback Machine 恢复