If DataStore.Record.Exists(theRecord) Then Dim script As String = “alert(‘Record exists’)” If Not Page.ClientScript.IsStartUpScriptRegistered(Me.GetType(), “alertscript”) Then Page.ClientScript.RegisterStartUpScript(Me.GetType(), “alertscript”, script, True) End If End If you would do it like above, where you should replaceDataStore.Record.Exists(theRecord) with condition that checks database record exists
Private Sub IsFileOpen(ByVal file As FileInfo) Dim stream As FileStream = Nothing Try stream = file.Open(FileMode.Open, FileAccess.ReadWrite, FileShare.None) stream.Close() Catch ex As Exception If TypeOf ex Is IOException AndAlso IsFileLocked(ex) Then ‘ do something here, either close the file if you have a handle, show a msgbox, retry or as a last resort terminate the … Read more
The Win32 Security Management functions provide the capability to create a restricted token with normal user rights; with the token, you can call CreateProcessAsUser to run the process with that token. Below is a proof of concept that runs cmd.exe as a normal user, regardless of whether the process is run in an elevated context. … Read more
You can use the ListBoxItem.ForeColor and UseItemStyleForSubItems properties to make the item look dimmed. Use SystemColors.GrayText to pick the theme color for disabled items. Avoid disabling selection, it prevents the user from using the keyboard. Only disable the checkbox checking. For example: private void listView1_ItemCheck(object sender, ItemCheckEventArgs e) { // Disable checking odd-numbered items if … Read more
It looks like you want to use Directory.GetFiles() in the System.IO namespace. Docs here.
Use the following functions to encode unicode string in “UCS2” format: //================> Used to encoding GSM message as UCS2 public static String UnicodeStr2HexStr(String strMessage) { byte[] ba = Encoding.BigEndianUnicode.GetBytes(strMessage); String strHex = BitConverter.ToString(ba); strHex = strHex.Replace(“-“, “”); return strHex; } public static String HexStr2UnicodeStr(String strHex) { byte[] ba = HexStr2HexBytes(strHex); return HexBytes2UnicodeStr(ba); } //================> Used … Read more
I am Eugenio La Mesa, general manager at Code Architects. I read a few comments on our VB Migration Partner and conversion tools in general, and thought I might add some hopefully useful hints. First, our conversion software does support all VB6 graphic properties and methods – with the only exception of DrawMode and ClipControls. … Read more
You could use JavaScriptSerializer which is in System.Web.Script.Serialization. Imports System.Web.Script.Serialization Module Module1 Sub Main() Dim s As String Try Dim rawresp As String = “{“”id””:174543706,””first_name””:””Hamed””,””last_name””:””Ap””,””username””:””hamed_ap””,””type””:””private””}” Dim jss As New JavaScriptSerializer() Dim dict As Dictionary(Of String, String) = jss.Deserialize(Of Dictionary(Of String, String))(rawresp) s = dict(“id”) Catch ex As Exception End Try End Sub End Module
No, there’s no shortcut for this, although LINQ makes it relatively easy. For example, in C# the raw “set of namespaces” would be: var namespaces = assembly.GetTypes() .Select(t => t.Namespace) .Distinct(); To get the top-level namespace instead you should probably write a method: var topLevel = assembly.GetTypes() .Select(t => GetTopLevelNamespace(t)) .Distinct(); … static string GetTopLevelNamespace(Type … Read more
Sounds like you need an expression like this: ^[0-9a-zA-Z]+(,[0-9a-zA-Z]+)*$ Posix allows for the more self-descriptive version: ^[[:alnum:]]+(,[[:alnum:]]+)*$ ^[[:alnum:]]+([[:space:]]*,[[:space:]]*[[:alnum:]]+)*$ // allow whitespace If you’re willing to admit underscores, too, search for entire words (\w+): ^\w+(,\w+)*$ ^\w+(\s*,\s*\w+)*$ // allow whitespaces around the comma