VB .NET
| XML a ADO .NET | Program |
| Datum a čas | Program |
| Práce s textem | Program |
| Je instalován MS Office? | Kód |
| Atributy souboru | Kód |
| Verze Windows | Kód |
| XML a ADO .NET | |
| Ukazuje, jak nahrát XML stream do ADo DataSetu, použití meotyd GetXML a zobrazení XML v různých formátech v prohlížeči. | |
| 2769 bajtů | Kopírovat |
Zpět na obsah
| Datum a čas | |
Příklad použití objektu DateTime a jeho formátovacích možností v ASP .NET stránce. | |
| 4938 bajtů | Kopírovat |
Zpět na obsah
| Práce s textem | |
| Několik funkcí pro práci s textem, např. binární vyhledávání, třídění (bubble a merge sort) atp. | |
| 54013 bajtů | Kopírovat |
Zpět na obsah
Chcete-li vědět, zda je instalována některá aplikace z balíku MS Office, použijte následující jednoduchý trik s registrem.
Dim strSubKey As String
Dim objKey As RegistryKey = Registry.ClassesRoot
Dim objSubKey As RegistryKey
strSubKey = "Access.Application"
'strSubKey = "Excel.Application"
'strSubKey = "Word.Application"
objSubKey = objKey.OpenSubKey(strSubKey)
If objSubKey Is Nothing Then
MsgBox("Access není instalován.")
Else
MsgBox("Access je instalován.")
End If
objKey.Close()
Atributy souboru zjistíte voláním metody GetAttributes objektu File.
Zjistit, zda je soubor např. skrytý je velmi jednoduché.
If (System.IO.File.GetAttributes("c:\autoexec.bat") And _
System.IO.FileAttributes.Hidden) = System.IO.FileAttributes.Hidden Then
MsgBox("Autoexec.bat je skrytý soubor")
Else
MsgBox("Autoexec.bat není skrytý soubor")
End If
Zjištění verze Windows je to nejjednodušší, co zde dnes naleznete.
MsgBox(Environment.OSVersion.ToString)