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