VB 2008 FPS Crosshair

I recently made a crosshair and for the people that wonder how to make it, here is the tut.

1. Open VB 2008
2. Click New Project
3. Rename Your Project
4. Choose A Button/Check Box/etc.
5. Rename the button (in my case) - Show Crosshair
6. Copy the button and paste it
7. Rename the button - Hide Crosshair
8. Click on Project on the toolbar (not toolbox)
9. Click on Add Windows Form
10. Find and change TopMost to TRUE
11. Find and change ShowInTaskbar to FALSE
12. Find and change Opacity to 65% (or other)
13. Find and change StartPosition to CenterScreen
14. Find Size and change to 1, 50 (it will automatically change to another number)
15. Find and change MinimumSize to 1, 50
16. Find and change MaximumSize to 1, 50
17. Find and change FormBorderStyle to None
18. Find and change BackColor to RED
19. Click on New Form on the toolbar (not toolbox)
20. Do Number 11, 12, 13, 17 and 18.
21. Find and change Size to 50 , 1 (do it for MinimumSize, MaximumSize too)
22. Go back to Form1.vb
23. Double Click on your Show Crosshair button and your Hide Crosshair button.
24. You should see :

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
    End Sub
End Class

25. Put in this (in red):

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Hide()
        Form3.Hide()
    End Sub
End Class

26. Click on Debugging.
27. Your Crosshair menu should pop up.
28. Click on Show Crosshair to make your Crosshair pop up. Click on Hide Crosshair to make your Crosshair disappear.

TELL ME WHAT YOU GUYS THINK!

Crosshair menu and Crosshair should look like this :

You can add extra stuff, a better icon, background. Change the shape of the crosshair but this is the most basic crosshair I made.

Made this one a while back.

Originally Posted by FragInABox

Made this one a while back.

Yea lol. This was just like a basic show/hide crosshair menu. I didn't really go into any advanced stuff.

Originally Posted by Kira

20. Do Number 11, 12, 13, 17 and 18.

?? what are you talking about?

Originally Posted by Pixie

?? what are you talking about?

It means do the stuff you did for those numbers on your 2nd button.

Originally Posted by Kira

It means do the stuff you did for those numbers on your 2nd button.

Please be more specific, I am a noob at reading tutorials, I am more better at videos, could you make a video pl0x?

A video would be nice...

Edit: Dude please help!

Originally Posted by n3m1s1s

A video would be nice...

Edit: Dude please help!

Your PROGRAM NAME can't have the ' or - or any sign in it. (PG - Pedobear's Crosshair)

Offtopic but,
I never saw a hyperlink button in vb till now.

Mind making a tutorial for it? ;D

Edit: Using VB 2008.

Guys, i need help. When i double click on the Show buttom to see the code, i'v this confusion:

#pragma once

namespace Crossfirehacks {

using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System:

ata;
using namespace System:

rawing;

/// <summary>
/// Summary for Form1
///
/// WARNING: If you change the name of this class, you will need to change the
/// 'Resource File Name' property for the managed resource compiler tool
/// associated with all .resx files this class depends on. Otherwise,
/// the designers will not be able to interact properly with localized
/// resources associated with this form.
/// </summary>
public ref class Form1 : public System::Windows::Forms::Form
{
public:
Form1(void)
{
InitializeComponent();
//
//TODO: Add the constructor code here
//
}

protected:
/// <summary>
/// Clean up any resources being used.
/// </summary>
~Form1()
{
if (components)
{
delete components;
}
}
private: System::Windows::Forms::Button^ button1;
private: System::Windows::Forms::Button^ button2;
protected:

private:
/// <summary>
/// Required designer variable.
/// </summary>
System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
void InitializeComponent(void)
{
this->button1 = (gcnew System::Windows::Forms::Button());
this->button2 = (gcnew System::Windows::Forms::Button());
this->SuspendLayout();
//
// button1
//
this->button1->Location = System:

rawing::Point(12, 12);
this->button1->Name = L"button1";
this->button1->Size = System:

rawing::Size(100, 27);
this->button1->TabIndex = 0;
this->button1->Text = L"Show Crosshair";
this->button1->UseVisualStyleBackColor = true;
this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);
//
// button2
//
this->button2->Location = System:

rawing::Point(172, 12);
this->button2->Name = L"button2";
this->button2->Size = System:

rawing::Size(100, 27);
this->button2->TabIndex = 1;
this->button2->Text = L"Hide Crosshair";
this->button2->UseVisualStyleBackColor = true;
this->button2->Click += gcnew System::EventHandler(this, &Form1::button2_Click);
//
// Form1
//
this->AutoScaleDimensions = System:

rawing::SizeF(6, 13);
this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
this->ClientSize = System:

rawing::Size(284, 264);
this->Controls->Add(this->button2);
this->Controls->Add(this->button1);
this->Name = L"Form1";
this->Text = L"Form1";
this->ResumeLayout(false);

}
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
}
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
}
};
}

Originally Posted by milku

Guys, i need help. When i double click on the Show buttom to see the code, i'v this confusion:

#pragma once

namespace Crossfirehacks {

using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System:

ata;
using namespace System:

rawing;

/// <summary>
/// Summary for Form1
///
/// WARNING: If you change the name of this class, you will need to change the
/// 'Resource File Name' property for the managed resource compiler tool
/// associated with all .resx files this class depends on. Otherwise,
/// the designers will not be able to interact properly with localized
/// resources associated with this form.
/// </summary>
public ref class Form1 : public System::Windows::Forms::Form
{
public:
Form1(void)
{
InitializeComponent();
//
//TODO: Add the constructor code here
//
}

protected:
/// <summary>
/// Clean up any resources being used.
/// </summary>
~Form1()
{
if (components)
{
delete components;
}
}
private: System::Windows::Forms::Button^ button1;
private: System::Windows::Forms::Button^ button2;
protected:

private:
/// <summary>
/// Required designer variable.
/// </summary>
System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
void InitializeComponent(void)
{
this->button1 = (gcnew System::Windows::Forms::Button());
this->button2 = (gcnew System::Windows::Forms::Button());
this->SuspendLayout();
//
// button1
//
this->button1->Location = System:

rawing::Point(12, 12);
this->button1->Name = L"button1";
this->button1->Size = System:

rawing::Size(100, 27);
this->button1->TabIndex = 0;
this->button1->Text = L"Show Crosshair";
this->button1->UseVisualStyleBackColor = true;
this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);
//
// button2
//
this->button2->Location = System:

rawing::Point(172, 12);
this->button2->Name = L"button2";
this->button2->Size = System:

rawing::Size(100, 27);
this->button2->TabIndex = 1;
this->button2->Text = L"Hide Crosshair";
this->button2->UseVisualStyleBackColor = true;
this->button2->Click += gcnew System::EventHandler(this, &Form1::button2_Click);
//
// Form1
//
this->AutoScaleDimensions = System:

rawing::SizeF(6, 13);
this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
this->ClientSize = System:

rawing::Size(284, 264);
this->Controls->Add(this->button2);
this->Controls->Add(this->button1);
this->Name = L"Form1";
this->Text = L"Form1";
this->ResumeLayout(false);

}
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
}
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
}
};
}

Sorry for Double Posting but this guy's code is too big XD

Did you follow my steps?
Are you using VB 2008?

Originally Posted by iOwnage

Offtopic but,
I never saw a hyperlink button in vb till now.

Mind making a tutorial for it? ;D

Edit: Using VB 2008.

I can tell you! It's EASY!!

First help meeee!!!!! ...jk

Thanks. I got it fixed...

Kira, that is the prob. Im WAS using Visual C++ Studio and it have windows forms and all the stuff xD

And i just downloaded VB 2008 but im getting error when i open ANY FORM1.VB! Its says "Make sure the application for the file type (.vb) is installed. "

Any suggestion?

VB 2008 FPS Crosshair

Similar Threads

Tags for this Thread