Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

A Reflective and Translucent Glass Panel

, 1 Oct 2008
Component derived from Panel that acts like a window (glass)
glasspanel_src.zip
Glass
Components
GlassPanel.vbproj.user
Helpers
My Project
Application.myapp
Settings.settings
Test
GlassPanelTest.vbproj.user
My Project
Application.myapp
Settings.settings
Imports System.Drawing

Module Formatting

    Public Function GetStringFormat(ByVal Alignment As ContentAlignment) As StringFormat
        Dim sfText As New StringFormat
        Select Case Alignment
            Case ContentAlignment.BottomCenter, ContentAlignment.MiddleCenter, ContentAlignment.TopCenter
                sfText.Alignment = StringAlignment.Center
            Case ContentAlignment.BottomLeft, ContentAlignment.MiddleLeft, ContentAlignment.TopLeft
                sfText.Alignment = StringAlignment.Near
            Case ContentAlignment.BottomRight, ContentAlignment.MiddleRight, ContentAlignment.TopRight
                sfText.Alignment = StringAlignment.Far
        End Select
        Select Case Alignment
            Case ContentAlignment.BottomCenter, ContentAlignment.BottomLeft, ContentAlignment.BottomRight
                sfText.LineAlignment = StringAlignment.Far
            Case ContentAlignment.MiddleCenter, ContentAlignment.MiddleLeft, ContentAlignment.MiddleRight
                sfText.LineAlignment = StringAlignment.Center
            Case ContentAlignment.TopCenter, ContentAlignment.TopLeft, ContentAlignment.TopRight
                sfText.LineAlignment = StringAlignment.Near
        End Select
        Return sfText
    End Function

    Public Function RemoveAmpersand(ByVal Text As String) As String
        Return Text.Replace("&", "")
    End Function

End Module

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

Nicolas Wälti
Software Developer (Senior)
Switzerland Switzerland
No Biography provided

| Advertise | Privacy | Mobile
Web03 | 2.8.140721.1 | Last Updated 1 Oct 2008
Article Copyright 2008 by Nicolas Wälti
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid