Visual Basic

smarr wrote:

I'm trying to get my app to print text to the shell from which it was called. In C, the closest thing would be a printf().

Declare Auto Function AllocConsole Lib "kernel32" () As IntPtr
    .
    .
    .
AllocConsole()
Console.WriteLine("This is a test...")

Imports System
Imports System.Windows.Forms
 
Module Module1
    Sub Main()
        Dim myForm As New Form1
        Console.WriteLine("Application startup...")
 
        ' Application.Run is a blocking call...
        System.Windows.Forms.Application.Run(myForm)
 
        ' so, this statement won't execute until the form is closed.
        Console.WriteLine(myForm.ReturnValue)
    End Sub
End Module
 
Public Class Form1
    Inherits Form
 
    Shared Sub Main()
    End Sub
 
    Private _returnValue As String
 
    Public ReadOnly Property ReturnValue() As String
        Get
            Return _returnValue
        End Get
    End Property
 
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Console.WriteLine("You can write from the console from inside your form.")
        _returnValue = "This is the return value stored in the form..."
    End Sub
End Class

Protected Sub onMenuItemClick(ByVal sender As Object, ByVal e As EventArgs)<br />
       Dim item As MenuItem = CType(sender,MenuItem)<br />
       If (Not (MRUItemClicked) Is Nothing) Then<br />
           Dim fileName As String = CType(_itemMap(item),String)<br />
           MRUItemClicked(Me, New MRUItemClickedEventArgs(fileName))<br />
       End If<br />
   End Sub

<br />
Imports System<br />
Imports System.ComponentModel<br />
Imports System.Drawing<br />
Imports System.Drawing.Design<br />
Imports System.ComponentModel.TypeConverter<br />
<br />
'My properties class<br />
Public Class ToolBoxItem<br />
<br />
#Region "Properies"<br />
<br />
    Private m_IName As String<br />
<br />
    Private m_Value As Integer<br />
<br />
    Public Property IName() As String<br />
        Get<br />
<br />
            Return m_IName<br />
<br />
        End Get<br />
        Set(ByVal Value As String)<br />
<br />
            m_IName = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
    Public Property Value() As Integer<br />
        Get<br />
<br />
            Return m_Value<br />
<br />
        End Get<br />
        Set(ByVal Value As Integer)<br />
<br />
            m_Value = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
#End Region<br />
<br />
End Class<br />
<br />
<br />
'My collection class<br />
Public Class ToolBoxItemCollection<br />
<br />
    Inherits CollectionBase<br />
<br />
    Public Sub Add(ByVal MyItem As ToolBoxItem)<br />
<br />
        list.Add(MyItem)<br />
<br />
    End Sub<br />
<br />
    Public Sub Remove(ByVal index As Integer)<br />
<br />
        If index > Count - 1 Or index < 0 Then<br />
<br />
            System.Windows.Forms.MessageBox.Show("Index not valid!")<br />
<br />
        Else<br />
<br />
            List.RemoveAt(index)<br />
<br />
        End If<br />
<br />
    End Sub<br />
<br />
<br />
    Public ReadOnly Property Item(ByVal index As Integer) As ToolBoxItem<br />
        Get<br />
<br />
            Return CType(List.Item(index), ToolBoxItem)<br />
<br />
        End Get<br />
<br />
    End Property<br />
<br />
End Class<br />
<br />
'My control class<br />
Public Class ToolBox<br />
<br />
    Inherits GroupBox<br />
<br />
    Private m_Items As ToolBoxItemCollection<br />
<br />
    Private m_Count, m_ItemWidth, m_ItemHeight As Integer<br />
<br />
<br />
    Public Property Items() As ToolBoxItemCollection<br />
        Get<br />
<br />
            Return m_Items<br />
<br />
        End Get<br />
        Set(ByVal Value As ToolBoxItemCollection)<br />
<br />
            m_Items = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
<br />
    Public Property Items(ByVal Index As Integer) As ToolBoxItem<br />
        Get<br />
            Return m_Items.Item(Index)<br />
<br />
        End Get<br />
        Set(ByVal Value As ToolBoxItem)<br />
<br />
            m_Items.Add(Value)<br />
<br />
        End Set<br />
    End Property<br />
<br />
    Public Sub New()<br />
<br />
        MyBase.New()<br />
<br />
        Me.Dock = DockStyle.Right<br />
<br />
        Me.BackColor = SystemColors.ControlDarkDark<br />
<br />
        Me.Text = ""<br />
<br />
        Me.Width = 100<br />
<br />
        If m_Items Is Nothing Then<br />
<br />
            m_Items = New ToolBoxItemCollection<br />
<br />
        End If<br />
<br />
    End Sub<br />
<br />
<br />
End Class<br />
<br />

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint
    Dim g As Graphics = e.Graphics
    ' do your painting for the control
End Sub