Category Archives: Visual Basic

Lite datumhantering i .NET

Sätt aktuell tråd till svenskt (påverkar all datumlogik i ditt program) System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("sv-SE") Tolka datum som cultur-neutral TextBox1.Text = DateTime.ParseExact(theDate, "yyyyMMdd", CultureInfo.InvariantCulture) VB.NET, Dagens datum till svenskt format Dim cui As New System.Globalization.CultureInfo("sv-SE") TextBox1.Text = Now.ToString(cui) C#, Kontrollera datum … Continue reading

Posted in .NET, Csharp, VB.NET, Visual Basic | Leave a comment

Windows API tutorial

En bra tutorial hur du anropar windows-modulerna. Här används Visual Basic men strukturen är liknande för andra språk som VB.NET, C# eller VC++. Windows API tutorial

Posted in .NET, C/C++, Visual Basic | Leave a comment

Skapa fråga från AND, OR och * i söksträng

Exempel på hur man kan bygga sökning när användaren angett operatorerna: AND, OR och * Detta är gjort med VBScript i ASP men metoden är tillämpbar på andra miljöer. Tänk på att detta inte kontrollerar att söksträngen ser okej ut. … Continue reading

Posted in SQL, Visual Basic | Leave a comment

Kolla om url finns

Imports System.Net Imports System.Net.Sockets   Public Shared Function UrlIsValid(ByVal host As String) As Boolean Dim br As Boolean = False Try Dim ipHost As IPHostEntry = Dns.Resolve(host) br = True Catch se As SocketException br = False End Try Return … Continue reading

Posted in .NET, Visual Basic | Leave a comment

Skapa textfil och visa den för användaren med Shell

Det finns flera sätt att lösa detta på, bla med FileSystemObject. Men det är snabbare och enklare med den gamla hederliga ”Open”. ‘skapa fil Open "C:\test.txt" For Append As #1Print #1, "Hej"Close #1 ‘öppnar fil, (windows väljer program) Shell "C:\test.txt", … Continue reading

Posted in Visual Basic | Leave a comment

Kolla att sträng bara innehåller bokstäverna A-Z

Public Function isAlphabetic(str As String) As Boolean   Dim strlen As Integer strlen = Len(str) If strlen < 1 Then Exit Function End If   Dim i, j As Integer Dim exists As Boolean exists = False   ‘fyll vektor … Continue reading

Posted in Visual Basic | Leave a comment