6 textbox3.button1colordialog1contextmenu gerekiyor - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:13   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart 6 textbox3.button1colordialog1contextmenu gerekiyor

6 textbox3.button1colordialog1contextmenu gerekiyor

Imports System.Drawing.Drawing2D

'formu deiştirmek için bu zorunlu!!!!!!

Public Class Form2

Inherits System.Windows.Forms.Form



#Region " Windows Form Designer generated code "



Public Sub New()

MyBase.New()



'This call is required by the Windows Form Designer.

InitializeComponent()



'Add any initialization after the InitializeComponent() call



End Sub



'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub



'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer



'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

Friend WithEvents TextBox6 As System.Windows.Forms.TextBox

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

Friend WithEvents contextmenu1 As System.Windows.Forms.ContextMenu

Friend WithEvents cd1 As System.Windows.Forms.ColorDialog

<System.Diagnostics.DebuggerStepThrough()&gt ; Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.TextBox1 = New System.Windows.Forms.TextBox

Me.TextBox2 = New System.Windows.Forms.TextBox

Me.TextBox3 = New System.Windows.Forms.TextBox

Me.TextBox4 = New System.Windows.Forms.TextBox

Me.TextBox5 = New System.Windows.Forms.TextBox

Me.TextBox6 = New System.Windows.Forms.TextBox

Me.Button3 = New System.Windows.Forms.Button

Me.contextmenu1 = New System.Windows.Forms.ContextMenu

Me.MenuItem1 = New System.Windows.Forms.MenuItem

Me.MenuItem2 = New System.Windows.Forms.MenuItem

Me.cd1 = New System.Windows.Forms.ColorDialog

Me.SuspendLayout()

'

'Button1

'

Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat

Me.Button1.Location = New System.Drawing.Point(72, 96)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "Oyna"

'

'Button2

'

Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat

Me.Button2.Location = New System.Drawing.Point(160, 96)

Me.Button2.Name = "Button2"

Me.Button2.TabIndex = 1

Me.Button2.Text = "Temizle"

'

'TextBox1

'

Me.TextBox1.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox1.ForeColor = System.Drawing.Color.White

Me.TextBox1.Location = New System.Drawing.Point(48, 136)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.Size = New System.Drawing.Size(24, 22)

Me.TextBox1.TabIndex = 2

Me.TextBox1.Text = ""

'

'TextBox2

'

Me.TextBox2.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox2.ForeColor = System.Drawing.Color.White

Me.TextBox2.Location = New System.Drawing.Point(80, 136)

Me.TextBox2.Name = "TextBox2"

Me.TextBox2.Size = New System.Drawing.Size(24, 22)

Me.TextBox2.TabIndex = 3

Me.TextBox2.Text = ""

'

'TextBox3

'

Me.TextBox3.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox3.ForeColor = System.Drawing.Color.White

Me.TextBox3.Location = New System.Drawing.Point(112, 136)

Me.TextBox3.Name = "TextBox3"

Me.TextBox3.Size = New System.Drawing.Size(24, 22)

Me.TextBox3.TabIndex = 4

Me.TextBox3.Text = ""

'

'TextBox4

'

Me.TextBox4.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox4.ForeColor = System.Drawing.Color.White

Me.TextBox4.Location = New System.Drawing.Point(152, 136)

Me.TextBox4.Name = "TextBox4"

Me.TextBox4.Size = New System.Drawing.Size(24, 22)

Me.TextBox4.TabIndex = 5

Me.TextBox4.Text = ""

'

'TextBox5

'

Me.TextBox5.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox5.ForeColor = System.Drawing.Color.White

Me.TextBox5.Location = New System.Drawing.Point(224, 136)

Me.TextBox5.Name = "TextBox5"

Me.TextBox5.Size = New System.Drawing.Size(24, 22)

Me.TextBox5.TabIndex = 6

Me.TextBox5.Text = ""

'

'TextBox6

'

Me.TextBox6.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))

Me.TextBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))

Me.TextBox6.ForeColor = System.Drawing.Color.White

Me.TextBox6.Location = New System.Drawing.Point(192, 136)

Me.TextBox6.Name = "TextBox6"

Me.TextBox6.Size = New System.Drawing.Size(24, 22)

Me.TextBox6.TabIndex = 7

Me.TextBox6.Text = ""

'

'Button3

'

Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat

Me.Button3.Location = New System.Drawing.Point(232, 48)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(24, 16)

Me.Button3.TabIndex = 8

Me.Button3.Text = "X"

'

'contextmenu1

'

Me.contextmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2})

'

'MenuItem1

'

Me.MenuItem1.Index = 0

Me.MenuItem1.Text = "Yazı Rengi"

'

'MenuItem2

'

Me.MenuItem2.Index = 1

Me.MenuItem2.Text = "Zemin Rengi"

'

'Form2

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.BackColor = System.Drawing.Color.Lime

Me.ClientSize = New System.Drawing.Size(296, 264)

Me.ContextMenu = Me.contextmenu1

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.TextBox6)

Me.Controls.Add(Me.TextBox5)

Me.Controls.Add(Me.TextBox4)

Me.Controls.Add(Me.TextBox3)

Me.Controls.Add(Me.TextBox2)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Me.Name = "Form2"

Me.Opacity = 0.7

Me.Text = "Form2"

Me.ResumeLayout(False)



End Sub



#End Region







Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim s As New GraphicsPath

s.AddEllipse(0, 0, Me.Width, Me.Height)

Me.Region = New System.Drawing.Region(s)

'formu yuvarlak yapar

End Sub

Dim k As Point

'bu olmazsa olmaz.üstteki yani

Private Sub Form2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

k = New Point(-e.X, -e.Y)

End Sub



Private Sub Form2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If e.Button = MouseButtons.Left Then

Dim z As Point = Control.MousePosition

z.Offset(k.X, k.Y)

Location = z

End If

'formun mouse tarafından hareketlendirilmesine yarar.tutup sürüklemeye.

End Sub







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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""





End Sub



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub



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

Randomize()

TextBox1.Text = Int(Rnd() * 49) + 1

TextBox2.Text = Int(Rnd() * 49) + 1

TextBox3.Text = Int(Rnd() * 49) + 1

TextBox4.Text = Int(Rnd() * 49) + 1

TextBox5.Text = Int(Rnd() * 49) + 1

TextBox6.Text = Int(Rnd() * 49) + 1

End Sub



Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

cd1.ShowDialog()

ForeColor = cd1.Color



End Sub



Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

cd1.ShowDialog()

BackColor = cd1.Color



End Sub



Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub

End Class
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.