javad2000
Wednesday 2 May 2007, 11:36 PM
سلام
همونطور كه ميدونيد گزينه هاي Code و VBCode امكانات ويژه اي هستند كه براي درج كدهاي زبانهاي برنامه نويسي كاربرد ضروري دارند. مثلاً اگر يك كد مثل اين را:
Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "\")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function
بدون استفاده از گزينه مذكور بنويسم مشاهده مي كنيد كه چندان زيبا نمي شود. خواستم خواهش كنم گزينه هاي Code و VBCode يا لااقل يكي از آنها را در قسمت Quick Reply هم فعال كنيد تا براي درج نمونه كدهاي خود در پيام، ناچار نباشيم به قسمت «پيشرفته» برويم.
خيلي متشكرم
همونطور كه ميدونيد گزينه هاي Code و VBCode امكانات ويژه اي هستند كه براي درج كدهاي زبانهاي برنامه نويسي كاربرد ضروري دارند. مثلاً اگر يك كد مثل اين را:
Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "\")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function
بدون استفاده از گزينه مذكور بنويسم مشاهده مي كنيد كه چندان زيبا نمي شود. خواستم خواهش كنم گزينه هاي Code و VBCode يا لااقل يكي از آنها را در قسمت Quick Reply هم فعال كنيد تا براي درج نمونه كدهاي خود در پيام، ناچار نباشيم به قسمت «پيشرفته» برويم.
خيلي متشكرم