Những mẹo cần biết khi lập trình .NET
Chúng tôi xin đưa ra các phương pháp giải quyết các vấn đề mà các nhà phát triển .NET thường
gặp. Hy vọng chúng sẽ giúp ích cho các bạn.
1. Làm thế nào giới hạn một chương trình chỉ chạy một lần
Trong form chính đổi thành như sau:
static void Main()
{
Process ThisProcess = Process.GetCurrentProcess();
Process [] AllProcesses = Process.GetProcessesByName(ThisProcess.ProcessName);
if (AllProcesses.Length > 1)
{
MessageBox.Show(ThisProcess.ProcessName + '' is already running'',
ThisProcess.ProcessName, MessageBoxButtons.OK, MessageBoxIcon.Error);
}
else
{
Application.Run(new MainForm());
}
}
2. Di chuyển con trỏ đến dòng và cột xác định (RichTextBox)
Dùng phương thức GoToLineAndColumn
public void GoToLineAndColumn(int Line, int Column)
{
Cursor.Current = Cursors.WaitCursor;
int Offset = 0;
int i = 0;
foreach (String L in Lines)
{
if (i < Line - 1)
{
Offset += L.Length + 1;

3. Chạy JScript.NET trong ứng dụng C#
Tạo một JScript.NET ''package'' bao gồm một phương thức toàn cục (public)
package JScript
{
class Eval
{
public function DoEval(expr : String) : String
{
return eval(expr);
}
}
}
try { Result = (int) Application.UserAppDataRegistry.GetValue(''Resolution''); } catch(Exception) { }
Và thêm một reference đến chương trình C# của bạn và sử dụng
JScript.Eval E = new JScript.Eval();
String Expression = ExpressionTextBox.Text;
try
{
ResultTextBox.Text = E.DoEval(Expression);
}
catch(Microsoft.JScript.JScriptException jse)
4.Lưu thông số cấu hình vào Registry
Đầu tiên vào AssemblyInfo.cs và bỏ tất cả các thông số từ AssemblyVersion:
[assembly: AssemblyVersion(''1.0.0.0'')]
Mặc dù mỗi lần bạn build ứng dụng khoá register sẽ thay đổi. Lưu giá trị bằng cách sau
Application.UserAppDataRegistry.SetValue(''Value'', Value);
Nạp lại các thông số :
try
{
Value = (int) Application.UserAppDataRegistry.GetValue(''Value'');

SELECT @ascii = ascii(substring(@thestring, @pos, 1))
IF (@ascii > 57) SET @not = 1
IF (@ascii < 46) SET @not = 1
IF (@ascii = 47) SET @not = 1
IF (@ascii = 46) SET @dec = @dec + 1
SET @pos = @pos + 1
END
IF @dec > 1 SET @not = 1
IF @not > 0 RETURN @not -- invalid number
--valid number now check number of decimals
SELECT @dec = charindex('.',@thestring)
SET @pos = len(@thestring) - @dec -- find the number of characters right of decimal
IF @pos > @numdecimals SET @not = 1
RETURN @not
END
ADO/SQL Server nText inserts/updates
Rất nhiều lập trình viên hỏi làm thế nào để thêm (insert) dữ liệu vào
trong một trường nText vào SQL Server với ADO. Phần lớn các câu
SQL thường dùng string chuẩn và nó sẽ gặp vấn đề khi cập nhật các ký
tự đặc biệt. Sau đây chúng tôi sẽ giúp các bạn tránh được các lỗi
thường gặp đó.
Dim lRecs
Dim moADOCon
Dim moADOCom
Set moADOCon = Server.CreateObject(''ADODB.Connection'')
Set moADOCom = Server.CreateObject(''ADODB.Command'')
moADOCon.Open ''your connection string''
With moADOCom
.ActiveConnection = moADOCon
.CommandText = ''spPost''