GPECODE - dùng cho các đoạn code

[levanduyet]

Hôm nay tôi dùng iPad tình cờ vào chủ đề này thì phát hiện các định dạng bởi tag "GPECODE" không có tác dụng.

Hi Tuân,
Em xem lại, anh post bài cũng dùng iPad mà có sao đâu. Em phải mở "Đổi sang khung lớn" rồi nhấn tag GPECODE, sau đó nhập vào vb (hoặc gì gì đó mà em muốn). Thế là xong.

Lê Văn Duyệt

 

[levanduyet]

Nếu có thể ta nên đưa tag code này vào thanh công cụ của trình soạn thảo luôn thì hay biết mấy.

Hi em,
Đã đưa vào rồi, nhưng em phải nhấn nút "Đổi sang khung lớn" thì mới thấy.

Lê Văn Duyệt

 

[Hai Lúa Miền Tây]

Em test thử.

[GPECODE=sql]dim mySQL as string
mySQL="Select * from tblMember"

[/GPECODE]

Em đề xuất là nên thay đổi hình của tagcode này cho khác với tagcode thông thường để dể nhận biết.

 

[ndu96081631]

Hi em,
Đã đưa vào rồi, nhưng em phải nhấn nút "Đổi sang khung lớn" thì mới thấy.

Lê Văn Duyệt

Nhưng ngay chổ textbox "Please enter the option... " sao mình không làm nó thành 1 ComboBox cho người dùng bấm vào và chọn ---> Bảo đảm rất nhiều người chẳng biết phải ENTER cái gì vào nữa

 

[Hai Lúa Miền Tây]

Nhưng ngay chổ textbox "Please enter the option... " sao mình không làm nó thành 1 ComboBox cho người dùng bấm vào và chọn ---> Bảo đảm rất nhiều người chẳng biết phải ENTER cái gì vào nữa

Thầy gỏ vào sql hoặc VB... thử xem
Nếu cái hộp thoại đó nó có tùy chọn thì hay biết mấy.

 

[ndu96081631]

Thầy gỏ vào sql hoặc VBA... thử xem
Nếu cái hộp thoại đó nó có tùy chọn thì hay biết mấy.

Bài 1 hướng dẫn rồi, đương nhiên tôi biết, nhưng những ai chưa đọc bài này chắc gì biết mấy cái option ấy là gì

 

[Hoàng Trọng Nghĩa]

Bài 1 hướng dẫn rồi, đương nhiên tôi biết, nhưng những ai chưa đọc bài này chắc gì biết mấy cái option ấy là gì

Chính vì thế, khi bấm vào nút chọn GPECODE, có một hộp thoại hiện lên và thông báo nhập vào kiểu code, thì tôi thiết nghĩ BQT cần thay cái TextBox đó thành cái ComboBox xổ danh sách ra để lựa chọn kiểu nào cho nhanh và chính xác.

Xin cám ơn.

 

[levanduyet]

Nhưng ngay chổ textbox "Please enter the option... " sao mình không làm nó thành 1 ComboBox cho người dùng bấm vào và chọn ---> Bảo đảm rất nhiều người chẳng biết phải ENTER cái gì vào nữa

Chào anh, vấn đề này về mặt kỹ thuật cũng hơi khó. Tạm thời em nghĩ các mod, thành viên nhắc nhở nhau là được.

Lê Văn Duyệt

 

[sealand]

Mình test không được, thử lại lần nữa xem sao:


[GPECODE=vb]Private Sub UserForm_Initialize()
MsgBox "Use Font Unicode "
End Sub[/GPECODE]

 

[aviaiva]

Sáng em mải che'm, giờ mới test thử em post bằng PB (cái bộ gõ tiếng việt của diễn đàn có vấn đề em cứ đánh được dấu là nó lại nhảy lung tung, đánh trên PC khi không dung unikey cũng vậy)

[GPECODE=vb]
Private Sub UserForm_Initialize()
MsgBox "abbc"
End Sub[/GPECODE]

 

[levanduyet]

Sáng em mải che'm, giờ mới test thử em post bằng PB (cái bộ gõ tiếng việt của diễn đàn có vấn đề em cứ đánh được dấu là nó lại nhảy lung tung, đánh trên PC khi không dung unikey cũng vậy)

Khi dùng bộ gõ của diễn đàn thì nên tắt thằng UniKey. Tôi cũng đã từng bị vậy.

Lê Văn Duyệt

 

[TranThanhPhong]

Đổi # thành nút tên là GPE và thêm chú thích chọn code:

Thử nghiệm:

[GPECODE=sql]SELECT * FROM Persons WHERE
LastName='Svendson'
AND (FirstName='Tove' OR FirstName='Ola')
[/GPECODE]

 

[Hai Lúa Miền Tây]

Rất cảm ơn Admin, còn 1 cáinưũa là khi ta click chọn biểu tượng đó, hộp tùy chọn hiện ra, nếu ta bấm hủy bỏ thì nó hiện [GPECODE][/GPECODE], có cách nào khi ta bấm hủy bỏ, nó không chèn [GPECODE][/GPECODE] vào trình soạn thảo không?
Xin cảm ơn.

 

[Nguyễn Duy Tuân]

Thử xem thế nào.
[GPECODE=vb]while not dead
Learn()
Wend[/GPECODE]

Sao không thấy mầu nhỉ?

Em muốn viết code cho T-SQL, Pascal, Delphi, C ... Thì làm thế nào nhỉ? Có hướng dẫn cụ thể mã không anh nhỉ?

 

[TranThanhPhong]

Tính năng này nhằm giúp các thành viên có thêm tùy chọn khi chia sẽ code với nhau. Toàn bộ mã nguồn trong file đính kèm không hỗ trợ tùy biến khi cấu add-on vào diễn đàn. Muốn sửa lại nhưng nhìn vào rối quá

Thanh Phong

 

[levanduyet]

Thử xem thế nào.
[GPECODE=vb]while not dead
Learn()
Wend[/GPECODE]

Sao không thấy mầu nhỉ?

Em muốn viết code cho T-SQL, Pascal, Delphi, C ... Thì làm thế nào nhỉ? Có hướng dẫn cụ thể mã không anh nhỉ?

Tuân xem thread #1 của topic này.

Lê Văn Duyệt

 

[Nguyễn Duy Tuân]

Thử xem thế nào.
[GPECODE=vb]while not dead
Learn()
Wend[/GPECODE]

Sao không thấy mầu nhỉ?

Em muốn viết code cho T-SQL, Pascal, Delphi, C ... Thì làm thế nào nhỉ? Có hướng dẫn cụ thể mã không anh nhỉ?

Vâng, các ngôn ngữ ok. Vậy đoạn code trên của em em đã chọn GPECODE=vb nên mới ra được cái khung thế kia, ở đây là các từ khóa của VB chưa được nạp đủ hay sao nên nó không lên màu của while...Wend .

 

[levanduyet]

Cái pattern vb là:
[GPECODE=vb]
var keywords = 'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend ' +
'Function Get GetType GoSub GoTo Handles If Implements Imports In ' +
'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module ' +
'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing ' +
'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
'Variant When While With WithEvents WriteOnly Xor';
[/GPECODE]
Nếu em viết While thì nó sẽ được. Cái Wend chắc phải bổ xung vào.

Lê Văn Duyệt

 

[Nguyễn Duy Tuân]

Cái pattern vb là:
[GPECODE=vb]
var keywords = 'AddHandler AddressOf AndAlso Alias And Ansi As Assembly Auto ' +
'Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate ' +
'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
'Date Decimal Declare Default Delegate Dim DirectCast Do Double Each ' +
'Else ElseIf End Enum Erase Error Event Exit False Finally For Friend ' +
'Function Get GetType GoSub GoTo Handles If Implements Imports In ' +
'Inherits Integer Interface Is Let Lib Like Long Loop Me Mod Module ' +
'MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing ' +
'NotInheritable NotOverridable Object On Option Optional Or OrElse ' +
'Overloads Overridable Overrides ParamArray Preserve Private Property ' +
'Protected Public RaiseEvent ReadOnly ReDim REM RemoveHandler Resume ' +
'Return Select Set Shadows Shared Short Single Static Step Stop String ' +
'Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until ' +
'Variant When While With WithEvents WriteOnly Xor';
[/GPECODE]
Nếu em viết While thì nó sẽ được. Cái Wend chắc phải bổ xung vào.

Lê Văn Duyệt

[GPECODE=vb]Type HoSo
HoVaTen As String
NgaySinh As Date
ChieuCao As Double
LuongCB As Currency
End Type[/GPECODE]

Vậy phải thêm cả "Wend", "Type", "Currency" mới được anh ạ. Và nếu có thể sửa code không phân biệt chữ thường chữ hoa.

 

[levanduyet]

Vậy phải thêm cả "Wend", "Type", "Currency" mới được anh ạ. Và nếu có thể sửa code không phân biệt chữ thường chữ hoa.

Đã thêm vào.

Lê Văn Duyệt