Visual Basic

Rupesh Kumar Swami wrote:

There r option for determine the path of Program files,my document,etc folder but no option for windows folder

Imports System.Io
.
.
.
' This will get the parent directory of the path returned by SpecialFolder.System
' which is normally C:\Windows\System32.  The parent folder would be C:\Windows
Dim systemPath As String = Path.GetDirectoryName( _
        Environment.GetFolderPath(Environment.SpecialFolder.System))

 Dim str As String<br />
        Try<br />
            Dim systemPath As String = Path.GetDirectoryName(Environment.GetFolderPath(Environment.SpecialFolder.System))<br />
            str = systemPath & "\fonts"<br />
            systemPath = systemPath & "\Fonts\ITCKRIST.TTF"<br />
            If File.Exists(systemPath) Then<br />
<br />
            Else<br />
                File.Copy(Application.StartupPath & "\ITCKRIST.TTF", str & "\ITCKRIST.TTF", True)<br />
            End If<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try

Rupesh Kumar Swami wrote:

however this code copy the specified font to client system but there r no effect on my app.

Dave Kreskowiak wrote:

What are you trying to do with this??

Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
    ' Call the base TextBox class' OnClick method so it does it's work.
    ' This also fires the Click event for our control so the form can 
    ' handle the event if it wants to.
    MyBase.OnClick(e)
 
    ' Then do what we really want it to do, AFTER the base TextBox does
    ' what it needs to.
    MyBase.SelectAll()
End Sub

Public Class NumericTextBox
    Inherits TextBox
 
    Protect Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        ' For some reason Keys.Back doesn't work for backspace, even though it's constant is 8!
        If Char.IsNumeric(e.KeyChar) OrElse e.KeyChar.Equals(Keys.Delete) _
                OrElse e.KeyChar.Equals(Convert.ToChar(8)) Then
            ' It's a key we'll allow, so let the base TextBox handle it normally.
            MyBase.OnKeyPress(e)
        Else
            ' Drop the key by not passing it to the base class.  Pass Handled back up the chain.
            e.Handled = True
        End If
    End Sub
 
    ' GotFocus is for when the user tabs into the TextBox
    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        ' Let the base TextBox do it's thing first.
        MyBase.OnGotFocus(e)
        ' Then we'll select all the text.
        MyBase.SelectAll()
    End Sub
 
    ' If the user clicks anywhere in the TextBox, select all the text in it.
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        MyBase.OnClick(e)
        MyBase.SelectAll()
    End Sub
End Class

TwoFaced wrote:

Actually you don't need to override the click event to get select all to work. The click event fires late enough that select all will work just fine when added to that event.

TwoFaced wrote:

The focus event unfortunatly fires to early causing the select all to be undone (again only when clicked). Delaying the select all was the easiest solution as far as I could tell.