[mono-vb] Mono VB and WinForms (System.Windows.Forms).

Gruff tgroff at pacificstainless.com
Thu Jul 16 10:15:39 EDT 2009

I am getting a compile error when using "any" property of e as
Button, Shift, X, Y.  All thow an error.

' frmMain.vb 

Option Explicit On
Option Strict On

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class frmMain

  Private Sub Button1_Click(byval Sender as object,byval e as EventArgs)
handles Button1.click
    messagebox.show("Hello World!")    
  End Sub

'  The following MouseDown code causes the comple error:
' ---
' [Task:File=/home/tgroff/Sample/Sample/<MyGenerator>, 
' Line=1, Column=1, Type=Error, Priority=Normal, 
' Description=Unexpected error: CodePage 1252 not supported(VBNC99999)]

  Private Sub Button1_MouseDown(ByVal Sender As Object, ByVal e As
MouseEventArgs) Handles Button1.MouseDown
    If e.Button = System.Windows.Forms.MouseButtons.Left then
      messagebox.show(e.X & ", " & e.Y)
    End If
  End Sub

End Class

' End frmMain.vb 


Option Explicit On
Option Strict On

Partial Class frmMain  
  Inherits System.Windows.Forms.Form

  Public Sub New()  
  End Sub

  Private Sub InitializeComponent()  
    Button1 = new System.Windows.Forms.Button

    ' Button
    Button1.Name = "Button1"
    Button1.Text = "Hello"    
    Button1.Size = New System.Drawing.Size(60,30)    
    Button1.Location = New System.Drawing.Point(100,30)
   ' Form
    Me.Text = "frmMain"
    Me.Name = "frmMain"
    Me.Size = New System.Drawing.Size(250, 200)
  End Sub

  Public Shared Sub Main
    System.Windows.Forms.Application.Run(New frmMain)  
  End Sub

' Add button Events for frmMain.
  Public Withevents Button1 as System.Windows.Forms.Button  
End Class

'End frmMain.Developer.vb 
View this message in context: http://www.nabble.com/Mono-VB-and-WinForms-%28System.Windows.Forms%29.-tp24516622p24516622.html
Sent from the Mono - VB mailing list archive at Nabble.com.

More information about the Mono-vb mailing list