.NET Framework

1. Read the question carefully
2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
4. If the question is inappropriate then click the 'vote to remove message' button

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
   
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
   
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
   
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
   
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
   
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
   
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
   
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
   
   
9. Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
   
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
    
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
    
    
12. No advertising or soliciting.
    
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

Imports SKYPE4COMLib
Public Class Form1
    Public WithEvents skype As New SKYPE4COMLib.Skype
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'check if the skype client is running
        If Not skype.Client.IsRunning Then
            skype.Client.Start()
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            skype.Attach()
            MessageBox.Show("Succesfully Connected!", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Label4.Text = ("Connected!")
            Label2.Text = ("Welcome: " + skype.CurrentUserProfile.FullName)
        Catch ex As Exception
            MessageBox.Show("Unable to connect", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Label4.Text = ("Disconnected")
            Label2.Text = "Welcome: Unknown"
 

 

        End Try
 

 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
    End Sub
 
End Class

int x = Convert.ToInt16("some text");

Module INI
    Private Declare Ansi Function WritePrivateProfileString _
       Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
       (ByVal lpApplicationName As String, _
       ByVal lpKeyName As String, ByVal lpString As String, _
       ByVal lpFileName As String) As Integer
 
    Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String, _
    ByVal lpKeyName As String, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As StringBuilder, _
    ByVal nSize As Integer, _
    ByVal lpFileName As String) As Integer
 

 
    Public Function GetPrivateProfileStringUnicode(ApplicationName As String, KeyName As String, FileName As String) As String
        Dim sb As New StringBuilder(500)
        GetPrivateProfileString(ApplicationName, KeyName, "", sb, sb.Capacity, FileName)
        Dim Value As String = sb.ToString
        If InStr(Value, "#") = 0 Then
            'No #-character found, so there is nothing to convert back
            Return Value
        Else
            Dim i As Integer
            Dim Parts() As String = Split(Value, "#") 'Split value to array
            For i = 1 To UBound(Parts) Step 2         'If i is an odd number Parts(i) always contains a integer which should be converted back
                Parts(i) = Trim(ChrW(CInt(Parts(i))))
            Next
            Return Join(Parts, "")                    'Return the joined array Parts
        End If
    End Function
 
    Public Sub WritePrivateProfileStringUnicode(ApplicationName As String, KeyName As String, Value As String, FileName As String)
        'First escape the #-character
 
        Dim NewValue As String = Replace(Value, "#", "#" & Asc("#") & "#")
 

        If IsUnicode(NewValue) Then
            'Value has unicode characters; we convert them to integer value preceded and followed by a #-character
            Dim i As Integer
            Dim ValueUnicode As String = ""
            For i = 1 To Len(NewValue)
                Dim strChar As String = Mid(NewValue, i, 1)
                If AscW(strChar) > 255 Or AscW(strChar) < 0 Then
                    strChar = "#" & AscW(strChar) & "#"
                End If
                ValueUnicode = ValueUnicode & strChar
            Next
            'Write converted string to INI file directly
            WritePrivateProfileString(ApplicationName, KeyName, ValueUnicode, FileName)
        Else
            'No unicode characters, so write to INI file directly
            WritePrivateProfileString(ApplicationName, KeyName, NewValue, FileName)
        End If
    End Sub
 
    Private Function IsUnicode(input As String) As Boolean
        Dim asciiBytesCount = Encoding.ASCII.GetByteCount(input)
        Dim unicodBytesCount = Encoding.UTF8.GetByteCount(input)
        Return asciiBytesCount <> unicodBytesCount
    End Function
 
End Module