- Tham gia
- 30/5/06
- Bài viết
- 1,798
- Được thích
- 4,707
- Giới tính
- Nam
Chào các bạn,
Nhằm làm cho các đoạn code của các bạn trên diễn đàn được dễ đọc, dễ phân tích, dễ hướng dẫn và dễ góp ý, chúng tôi đã có tạo ra tag gpecode.
Cách dùng: các bạn hãy để đoạn code các bạn vào trong tag gpecode. Sau đó phải xác định đoạn code này thuộc ngôn ngữ nào bạn muốn sử dụng.
Ví dụ, đối với vb code thì ta đưa vào như sau [gpecode=vb].
Sau đây là các code ta có thể đưa vào, và mã cần đưa vào tag.
Ví dụ: code VB
[GPECODE=vb]
Sub Test_VB
'Đây là code của VBA
End Sub
[/GPECODE]
Ví dụ: code SQL
[GPECODE=sql]
SELECT Id, ItemCode, ItemDes FROM Tb_MaVatTu
[/GPECODE]
Ví dụ: code C#
[GPECODE=csharp]
private void tabControl_TTHV_SelectedIndexChanged(object sender, EventArgs e)
{
if (tabControl_TTHV.SelectedIndex == 0)
{
txtHoVaTen.Focus();
}
else
{
txtQuaTrinhCongTac.Focus();
}
}
[/GPECODE]
[info2=Muốn copy đoạn code trong tag gpecode thì sao?]Bạn chỉ việc double click (nhấn đúp chuột) và vùng code, bạn sẽ chọn được tất cả các code. Sau đó bạn copy bằng cách nhấn tổ hợp phím Ctrl + C . Như vậy đoạn code trong tag gpecode đã được copy vào clipboard, để bạn có thể dán vào ứng dụng nào bạn muốn.
[/info2]
[info2=Sau khi tôi copy thì các đoạn code trong tag này không thể hiện màu nữa?]Đúng vậy. Các bạn chỉ cần nhấn chuột vào phía ngoài đoạn code đó, màu sắc của đoạn code sẽ trở về lại như cũ.
[/info2]
Lại có thành viên yêu cầu, khi người dùng post code, thì người post cũng muốn cho người đọc biết đây là code gì. Vậy làm sao hiện "code trên môi trường nào"...
Vậy hãy dùng gpecode1
[gpecode1=vb]
Sub Trich_ADO_Unique()
Dim lsSQL As String, cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
Dim Arr()
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Database.xls" & _
";Extended Properties=""Excel 8.0;HDR=Yes;"";"
.Open
End With
lsSQL = "SELECT DISTINCT [TP], [MATERIAL NAME], [SPEC 2], [COLOR NAME], [UNIT], [ORIGIN], [SUPPLIER] " & _
"FROM [tblData$] " & _
"ORDER BY [TP],[ORIGIN],[SUPPLIER],[MATERIAL NAME],[SPEC 2],[COLOR NAME],[UNIT]"
lrs.Open lsSQL, cnn, 3, 1
[a:g].Clear
For i = 1 To lrs.fields.Count
Cells(1, i).Value = lrs.fields(i - 1).Name
Next
Range("A2").CopyFromRecordset lrs
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
[/gpecode1]
Hy vọng với sự thay đổi này sẽ giúp các bạn chia sẽ code, được dễ đọc hơn.
Xin các bạn nhắc nhau để sử dụng tag này. Xin cám ơn.
Lê Văn Duyệt
Nhằm làm cho các đoạn code của các bạn trên diễn đàn được dễ đọc, dễ phân tích, dễ hướng dẫn và dễ góp ý, chúng tôi đã có tạo ra tag gpecode.
Cách dùng: các bạn hãy để đoạn code các bạn vào trong tag gpecode. Sau đó phải xác định đoạn code này thuộc ngôn ngữ nào bạn muốn sử dụng.
Ví dụ, đối với vb code thì ta đưa vào như sau [gpecode=vb].
Sau đây là các code ta có thể đưa vào, và mã cần đưa vào tag.
- Visual basic, Visual Basic .Net: vb, vbnet
- C#: csharp
- PHP: php
- CSS: css
- Java: java
- Javescript: js, jscript, javascript
- Delphi, Pascal: delphi, pascal
- Python: py, python
- Actionscript3: as3
- Applescript: applescript
- ahk: autohotkey
- XML, XHTML,XSLT,HTML: xml, xhtml, xslt, html
- SQL: sql
- Perl: perl, pl
Ví dụ: code VB
[GPECODE=vb]
Sub Test_VB
'Đây là code của VBA
End Sub
[/GPECODE]
Ví dụ: code SQL
[GPECODE=sql]
SELECT Id, ItemCode, ItemDes FROM Tb_MaVatTu
[/GPECODE]
Ví dụ: code C#
[GPECODE=csharp]
private void tabControl_TTHV_SelectedIndexChanged(object sender, EventArgs e)
{
if (tabControl_TTHV.SelectedIndex == 0)
{
txtHoVaTen.Focus();
}
else
{
txtQuaTrinhCongTac.Focus();
}
}
[/GPECODE]
[info2=Muốn copy đoạn code trong tag gpecode thì sao?]Bạn chỉ việc double click (nhấn đúp chuột) và vùng code, bạn sẽ chọn được tất cả các code. Sau đó bạn copy bằng cách nhấn tổ hợp phím Ctrl + C . Như vậy đoạn code trong tag gpecode đã được copy vào clipboard, để bạn có thể dán vào ứng dụng nào bạn muốn.
[/info2]
[info2=Sau khi tôi copy thì các đoạn code trong tag này không thể hiện màu nữa?]Đúng vậy. Các bạn chỉ cần nhấn chuột vào phía ngoài đoạn code đó, màu sắc của đoạn code sẽ trở về lại như cũ.
[/info2]
Lại có thành viên yêu cầu, khi người dùng post code, thì người post cũng muốn cho người đọc biết đây là code gì. Vậy làm sao hiện "code trên môi trường nào"...
Vậy hãy dùng gpecode1
[gpecode1=vb]
Sub Trich_ADO_Unique()
Dim lsSQL As String, cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
Dim Arr()
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Database.xls" & _
";Extended Properties=""Excel 8.0;HDR=Yes;"";"
.Open
End With
lsSQL = "SELECT DISTINCT [TP], [MATERIAL NAME], [SPEC 2], [COLOR NAME], [UNIT], [ORIGIN], [SUPPLIER] " & _
"FROM [tblData$] " & _
"ORDER BY [TP],[ORIGIN],[SUPPLIER],[MATERIAL NAME],[SPEC 2],[COLOR NAME],[UNIT]"
lrs.Open lsSQL, cnn, 3, 1
[a:g].Clear
For i = 1 To lrs.fields.Count
Cells(1, i).Value = lrs.fields(i - 1).Name
Next
Range("A2").CopyFromRecordset lrs
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
[/gpecode1]
Hy vọng với sự thay đổi này sẽ giúp các bạn chia sẽ code, được dễ đọc hơn.
Xin các bạn nhắc nhau để sử dụng tag này. Xin cám ơn.
Lê Văn Duyệt
Lần chỉnh sửa cuối:
