[program-l] Re: Visual Basic .net with homer .net: sited users unable to see the controls

  • From: "Homme, James" <james.homme@xxxxxxxxxxxx>
  • To: "program-l@xxxxxxxxxxxxx" <program-l@xxxxxxxxxxxxx>
  • Date: Wed, 21 Oct 2009 14:39:55 -0400

Hi,
A reverse accessibility problem. I like it.

Jim

-----Original Message-----
From: program-l-bounce@xxxxxxxxxxxxx [mailto:program-l-bounce@xxxxxxxxxxxxx] On 
Behalf Of Pranav Lal
Sent: Wednesday, October 21, 2009 12:14 PM
To: program-l@xxxxxxxxxxxxx
Subject: [program-l] Visual Basic .net with homer .net: sited users unable to 
see the controls

Hi all,

I have built my applications using homer .net v0.8. Sited users are unable
to see the controls of my application. I thought that once I used homer
.net, the need for laying out the controls would disappear. Do I still need
to layout the controls? If yes, what algorithm would you suggest? The code
where I have setup my controls is as follows.
Imports Homer
Imports System
Imports System.ComponentModel
Imports System.Collections
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
Imports Microsoft.VisualBasic.FileIO
Imports Microsoft.VisualBasic.FileIO.TextFieldParser
Imports System.Diagnostics
Imports System.Diagnostics.Process

Public Class Exerciser
    Inherits LbcForm
    Private gFolder As String = Nothing
    Private filesList As List(Of String) = New List(Of String)
    Private fileNames As List(Of String) = New List(Of String)
    Private rnd As Random = New Random
    Private answers As New Hashtable
    Private ansKey As String = Nothing

    Shared Sub Main()
        Dim dlg As Exerciser = New Exerciser()
    End Sub ' Main method


    Sub New()
        Me.Init("ShapeExerciser", Nothing, Nothing)
        Me.AddInputBox("Answer", Nothing)
        Me.AddBand()
        Dim t As TextBox = Me.Names("TextBox_Answer")
        t.Enabled = False
        t.Visible = False
        Me.AddButton("Start")
        Me.AcceptButton = Me.AddButton("Next")
        Dim bn As Button = Me.Names("Button_Next")
        bn.Enabled = False
        Me.AddButton("Quit")
        Me.AddBand()

        Me.CompleteDialog(New Button(), Nothing)
    End Sub ' New method

Pranav

** To leave the list, click on the immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]
** If this link doesn't work then send a message to:
** program-l-request@xxxxxxxxxxxxx
** and in the Subject line type
** unsubscribe
** For other list commands such as vacation mode, click on the
** immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]
** or send a message, to
** program-l-request@xxxxxxxxxxxxx with the Subject:- faq


This e-mail and any attachments to it are confidential and are intended solely 
for use of the individual or entity to whom they are addressed.  If you have 
received this e-mail in error, please notify the sender immediately and then 
delete it.  If you are not the intended recipient, you must not keep, use, 
disclose, copy or distribute this e-mail without the author's prior permission. 
 The views expressed in this e-mail message do not necessarily represent the 
views of Highmark Inc., its subsidiaries, or affiliates.
** To leave the list, click on the immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=unsubscribe]
** If this link doesn't work then send a message to:
** program-l-request@xxxxxxxxxxxxx
** and in the Subject line type
** unsubscribe
** For other list commands such as vacation mode, click on the
** immediately-following link:-
** [mailto:program-l-request@xxxxxxxxxxxxx?subject=faq]
** or send a message, to
** program-l-request@xxxxxxxxxxxxx with the Subject:- faq

Other related posts: