Web Development

Imports System.ComponentModel
Imports System.Web.UI

Namespace MyOwnWebControls

   <DefaultProperty("Text"), ToolboxData("<{0}:MyOwnHtmlSelect runat=server></{0}:MyOwnHtmlSelect>")> Public Class MyOwnHtmlSelect
      Inherits System.Web.UI.HtmlControls.HtmlSelect

      Dim m_text As String = ""

      <Bindable(True), Category("Appearance"), Description("current content"), DefaultValue("")> Property Text() As String
         Get
            Return m_text
         End Get

         Set(ByVal Value As String)
            m_text = Value
         End Set
      End Property

      Protected Overrides Function SaveViewState() As Object

         ' make an array with dimension 2
         Dim savedState(1) As Object

         Try

            ' doesn't work
            ' savedState(0) = Me.Value
            ' savedState(1) = Me.Text

            ' this works - juhu
            If Me.Items.Count > Me.SelectedIndex Then
               savedState(0) = Me.Items(Me.SelectedIndex).Value
               savedState(1) = Me.Items(Me.SelectedIndex).Text

            Else
               savedState(0) = ""
               savedState(1) = ""
            End If

         Catch err As System.Exception
            ' Do some errormessage here
         End Try

         Return savedState
      End Function

      Protected Overrides Sub LoadViewState(ByVal savedState As Object)

         Try

            If Not savedState Is Nothing Then
               ' get the old values
               Dim value As String = savedState(0)
               Dim text As String = savedState(1)

               ' get value from the site
               If Not Page.Request.Form(ID) Is Nothing Then
                  ' set new value 
                  value = Page.Request.Form(ID)
                  If value <> savedState(0) Then
                     ' if the selection changed clear the text
                     text = ""
                  End If

               Else
                  ' can be nothing - for example the pt is disabled than it is not sent back to the server
                  ' in this case we take the old value from VIEWSTATE because the user can't change the selected item
               End If

               ' set the value of the poptext to the value of the selected item
               Me.Value = value

               ' add one item with this value
               Me.Items.Add(New System.Web.UI.WebControls.ListItem(text, value))
               Me.SelectedIndex = 0
            End If

         Catch err As System.Exception
            ' Do some errormessages here
         End Try
   
      End Sub
   
   End Class
   
End Namespace

                   \\\|///
                 \\  - -  //
                  (  @ @  )
+---------------oOOo-(_)-oOOo-----------------+
| Stephan Pilz   stephan.pilz@stephan-pilz.de |
|                <a href=www.stephan-pilz.de>www.stephan-pilz.de</a>          |
|                ICQ#: 127823481              |
+-----------------------Oooo------------------+
                 oooO   (   )
                (   )    ) /
                 \ (    (_/
                  \_)

Quartz... wrote:

you mean nobody

Quartz... wrote:

Thoughts ?

Jon Sagara wrote:

Why didn't you just post a link to the page itself?

Jon Sagara wrote:

Part of me thinks that you're hoping to drum up traffic for your new interview site by posting a link to an image hosted on the same server as said Web site and hoping that this ploy is enough to pique the interest of your viewers and maybe, just maybe, they'll erase the non-essential bits from the URL and see what interviewinfo.net is all about.

Jon Sagara wrote:

The rest of me doesn't undertand your fascination with Google Pages when you clearly have the programming[^] chops[^] to create cool stuff[^] on your own.

Quartz... wrote:

The page is google.com

You just have to login and personalize the page. The screenshot is of the google home page after personalization.
there is no new service or site for which i can give a link or URL

Quartz... wrote:

I liked the new feature about google add tabs, its damn innovatif as well as usefull

Quartz... wrote:

I liked the new feature about google add tabs, its damn innovatif as well as usefull

Quartz... wrote:

You don't like and ofcourse not use google personalized page.

Quartz... wrote:

any new feature like latest thread box in the top right corner will seem to be innovative and useful,