Visual Basic

txtValue.Font=New Font(txtValue.Font.Name,20)

Dave Kreskowiak wrote:

search for your field tags and replace each with a Word field

Public Class MyTextBox
    Inherits TextBox

<br />
Public Class theForm<br />
<br />
Private WithEvents new_panel As myPanel<br />
<br />
Private Sub theForm_Load() Handles MyBase.Load<br />
<br />
    new_panel = New myPanel(panel1.Handle)<br />
<br />
End Sub<br />
<br />
End Class<br />
<br />
<br />
Public Class myPanel<br />
<br />
    Public Sub New(ByVal pWindowHandle As IntPtr)<br />
        MyBase.AssignHandle(pWindowHandle)<br />
    End Sub<br />
<br />
End Class<br />

jensenx wrote:

Public Class myPanel

Public Sub New(ByVal pWindowHandle As IntPtr)
MyBase.AssignHandle(pWindowHandle)
End Sub

End Class

jensenx wrote:

Can i inherit in such a way? Or is there a better way of doing this?

Public Class MyPanel InheritsFrom Panel
    ' Do what you need to in the panel
End Class

jensenx wrote:

new_panel = New myPanel(panel1.Handle)

jensenx wrote:

MyBase.AssignHandle(pWindowHandle)

Dave Kreskowiak wrote:

And what does this have to do with VB.NET?

Public Class AddTwoNumbers

    Private m_firstValue As Integer
    Private m_secondValue As Integer
    Public Event OnAdd(message As String)

    Public Sub New()
         m_firstValue=0
         m_secondValue=0
    End Sub

    Public Property FirstValue()As Integer
         Get
             Return m_firstValue
         End Get
         Set(value As Integer)
             m_firstValue=value
         End Set
    End Property

    Public Property SecondValue()As Integer
         Get
             Return m_secondValue
         End Get
         Set(value As Integer)
             m_secondValue=value
         End Set
    End Property

    Public Function Add()As Integer
         RaiseEvent OnAdd("The Fuction Add is running now")
         Return m_firstValue + m_secondValue
    End Function
EndClass

Public Class frmMain
    Private WithEvents m_addClass As New AddTwoNumbers()
     
     ' here you can handle the Event OnAdd in the class AddTwoNumbers, 
     'that means when you call the method m_addClass.Add() the following
     'event will be fired
     Private Sub addClass_OnAdd(value As String) Handles m_addClass.OnAdd
          MessageBox.Show(value)
     End Sub

     Private Sub btnAdd_Click(sender As Object,e As EventArgs)Handles btnAdd.Click
          ' add the values of the input textboxes to the class
          If IsNumeric(txtFirstValue) Then m_addClass.FirstValue=CInt(txtFirstValue.Text.Trim())
          If IsNumeric(txtSecondValue) Then m_addClass.SecondValue=CInt(txtSecondValue.Text.Trim())
          'call the function Add, you will see 2 message boxes, one fired
          ' by the event that is found in the class and you handled it in 
          'this form, and the other by the following message
          MessageBox.Show(m_addClass.Add().ToString())
     End Sub
End Class

For Each r As DataGridViewRow in DataGridView1.Rows
    For Each c As DataGridViewCell in r
        Dim value As String = c.Value.ToString()
    Next
Next

<br />
Dim mainStr as String = ""<br />
Dim rowStr as String = ""<br />
 <br />
For Each r As DataGridViewRow in DataGridView1.Rows<br />
    rowStr = ""<br />
    For Each c As DataGridViewCell in r<br />
         If (c.ColumnIndex > 0) Then<br />
             rowStr += ControlChars.Tab<br />
         End If<br />
         rowStr += c.Value.ToString()<br />
    Next<br />
    mainStr += rowStr + ControlChars.CrLf<br />
Next<br />

CCG3 wrote:

Row1Value1(tab) Row1Value2(tab) Row1Value3
Row2Value1(tab) Row2Value2(tab) Row2Value3