VB .NET

FTP klient
Velmi dobrý příklad na FTP klienta.
583564 bajtů	Kopírovat

Zpět na obsah

Asociovaná přípona

Chcete-li vědět, který program má asociovánu určitou příponu, přečtěte to z registru.

Public Function GetFileAss(ByVal Extension As String) As String
  Dim ExtReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot
  Dim AppReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot
  Dim tmpStr As String

  ExtReg = ExtReg.OpenSubKey(Extension)
  tmpStr = ExtReg.GetValue("")
  AppReg = AppReg.OpenSubKey(tmpStr & "\shell\open\command")

  Dim SplitArray() As String
  SplitArray = Split(AppReg.GetValue(""), """")

  GetFileAss = SplitArray(1)
End Function

Příklad použití funkce:

MsgBox(GetFileAss(".vbp"))

Zpět na obsah

AppendText

Bylo-li do TextBoxu potřeba přidávat text, většinou se na to používal kód:

TextBox1.Text = TextBox1.Text & "text"

Nový TextBox má metodu AppendText, která je mnohonásobně rychlejší.

'Tohle raději ani nezkoušejte
For i = 1 To 10000
  TextBox1.Text = TextBox1.Text & "textik" & vbCrLf
Next

'Tohle bez problémů
For i = 1 To 10000
  TextBox1.AppendText("textik" & vbCrLf)
Next

Zpět na obsah