01.
Public
Shared
Function
IsDigitOnly (
ByVal
varStr
As
String
)
Boolean
02.
03.
Dim
bRet
=
False
04.
If
(varStr.Length = 0)
Then
Return
05.
06.
bRet =
True
07.
For
( i
Integer
= 0
To
varStr.Length -1 )
08.
if (
Not
IsDigit(varStr(i)))
09.
10.
Exit
11.
End
12.
Next
13.
14.
15.
16.
1.
public
bool
InNumber(
string
TextString)
2.
{
3.
if
(TextString.ToCharArray().All(c =>
char
.IsNumber(c)) ==
false
4.
return
;
5.
6.
true
7.
}
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
