Visual Basic

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Dim fName$<br />
    Dim lName$<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAddRow.Click<br />
        Static counter As Integer = 0<br />
        If counter = 0 Then<br />
            fName = "Nish"<br />
            lName = "karsh"<br />
            counter += 1<br />
        ElseIf counter < 10 Then<br />
            fName &= "a"<br />
            lName &= "a"<br />
            counter += 1<br />
        Else<br />
            counter = 0<br />
        End If<br />
        Dim o As Object() = {fName, lName}<br />
        DataGridView1.Rows.Add(o)<br />
        Static row As Integer = 0<br />
        DataGridView1.Rows(row).HeaderCell.Value = o(0).ToString<br />
        row += 1<br />
    End Sub<br />
<br />
    <br />
<br />
<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    <System.Diagnostics.DebuggerNonUserCode()> _<br />
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        Try<br />
            If disposing AndAlso components IsNot Nothing Then<br />
                components.Dispose()<br />
            End If<br />
        Finally<br />
            MyBase.Dispose(disposing)<br />
        End Try<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    <System.Diagnostics.DebuggerStepThrough()> _<br />
    Private Sub InitializeComponent()<br />
        Me.DataGridView1 = New System.Windows.Forms.DataGridView<br />
        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn<br />
        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn<br />
        Me.btAddRow = New System.Windows.Forms.Button<br />
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()<br />
        Me.SuspendLayout()<br />
        '<br />
        'DataGridView1<br />
        '<br />
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize<br />
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2})<br />
        Me.DataGridView1.Location = New System.Drawing.Point(27, 28)<br />
        Me.DataGridView1.Name = "DataGridView1"<br />
        Me.DataGridView1.Size = New System.Drawing.Size(279, 150)<br />
        Me.DataGridView1.TabIndex = 0<br />
        '<br />
        'Column1<br />
        '<br />
        Me.Column1.HeaderText = "Column1"<br />
        Me.Column1.Name = "Column1"<br />
        '<br />
        'Column2<br />
        '<br />
        Me.Column2.HeaderText = "Column2"<br />
        Me.Column2.Name = "Column2"<br />
        '<br />
        'btAddRow<br />
        '<br />
        Me.btAddRow.Location = New System.Drawing.Point(130, 207)<br />
        Me.btAddRow.Name = "btAddRow"<br />
        Me.btAddRow.Size = New System.Drawing.Size(75, 23)<br />
        Me.btAddRow.TabIndex = 1<br />
        Me.btAddRow.Text = "Button1"<br />
        Me.btAddRow.UseVisualStyleBackColor = True<br />
        '<br />
        'Form1<br />
        '<br />
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
        Me.ClientSize = New System.Drawing.Size(339, 264)<br />
        Me.Controls.Add(Me.btAddRow)<br />
        Me.Controls.Add(Me.DataGridView1)<br />
        Me.Name = "Form1"<br />
        Me.Text = "Form1"<br />
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView<br />
    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn<br />
    Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn<br />
    Friend WithEvents btAddRow As System.Windows.Forms.Button<br />
<br />
End Class<br />
<br />
br mode="hold" /><br />
 :wtf:  :wtf:  :wtf:  :omg:  :rolleyes:  :-O  :-\  :zzz:  :((

dvsriram wrote:

3) Which is good for shapes creation Picturebox or Panel as base ??????

dvsriram wrote:

4) How to do these things while using Drawing namespace .without Powerpacks and i want to drag and resize to any place with selection which is used for everycontrol like VS2005 form design ???

Senthil S wrote:

have doubt that it will work in linux and mac os

Senthil S wrote:

Can you give me the idea?

dim inputnum as integer, randomnum as integer<br />
<br />
'create a random number<br />
inputnum = textbox1.text<br />
if inputnum > randomnum then<br />
'move picture up<br />
elseif inputnum < randomnum then<br />
'move picture down<br />
else 'they're equal<br />
'game is done<br />
end if