ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 40|ตอบกลับ: 0

ขอคำชี้แนะเกิ่ยวกฟบ Select Case DirectCast operator '-' is not defined for type char and char

[คัดลอกลิงก์]

1

กระทู้

1

โพสต์

17

เครดิต

Newbie

Rank: 1

เครดิต
17
โพสต์ 6 วันที่แล้ว | ดูโพสต์ทั้งหมด |โหมดอ่าน

แก้ไขครั้งสุดท้ายโดย outhai1992 เมื่อ 2020-9-15 14:02
  1. Public Function Main(ByVal StrChr As Char) As Char

  2.         Select Case DirectCast((StrChr1 - "x"c), Char)
  3.             Case ChrW(0)
  4.                 Return "x"c
  5.             Case ChrW(1), ChrW(2), ChrW(3), ChrW(4), ChrW(5), ChrW(6), ChrW(7), vbBack, vbTab, vbLf, vbVerticalTab, vbFormFeed, vbCr, ChrW(14), ChrW(15), ChrW(16), ChrW(17), ChrW(18), ChrW(19), ChrW(20), ChrW(21), ChrW(22), ChrW(23), ChrW(24), ChrW(25), ChrW(26), ChrW(27), ChrW(28), ChrW(29), ChrW(30), ChrW(31), " "c, "!"c, """"c, "#"c, "$"c, "%"c, "&"c, "'"c, "("c, "4"c, ">"c, "?"c, "O"c, "R"c, "S"c, "T"c, "X"c, "Y"c, "Z"c, "["c, ""c, "]"c, "^"c, "_"c, "`"c, "a"c, "b"c, "c"c, "d"c, "e"c, "f"c, "g"c, "h"c, "i"c, "j"c, "k"c, "l"c, "m"c, "n"c, "o"c, "p"c, "q"c, "u"c, "v"c, "w"c, ChrW(135), ChrW(136), ChrW(137), ChrW(138), ChrW(139), ChrW(140), ChrW(141), ChrW(142), ChrW(143), ChrW(144), ChrW(145), ChrW(146), ChrW(147), ChrW(148), ChrW(149), ChrW(150), ChrW(151), ChrW(152), ChrW(153), ChrW(154), ChrW(155), ChrW(156), ChrW(157), ChrW(158), ChrW(159), " "c, "¡"c, "¢"c, "£"c, "¤"c, "¥"c, "¦"c, "§"c, "¨"c, "©"c, "ª"c, "«"c, "¬"c, "­"c, "®"c, "¯"c, "°"c, "±"c, "²"c, "³"c, "´"c, "µ"c, "¶"c, "·"c, "¸"c, "¹"c, "º"c, "»"c, "¼"c, "½"c, "¾"c, "¿"c, "À"c, "Á"c, "Â"c, "Ã"c, "Ä"c, "Å"c, "Æ"c, "Ç"c, "È"c, "É"c, "Ê"c, "Ë"c, "Ì"c, "Í"c, "Î"c, "Ï"c, "Ð"c, "Ñ"c, "Ò"c, "Ó"c, "Ô"c, "Õ"c, "Ö"c, "×"c, "Ø"c, "Ù"c
  6.                 Return StrChr
  7.             Case ")"c
  8.                 Return "ກ"c
  9.             Case "*"c
  10.                 Return "ຂ"c
  11.             Case "+"c
  12.                 Return "ຄ"c
  13.             Case ","c
  14.                 Return "ງ"c
  15.             Case "-"c
  16.                 Return "ຈ"c
  17.             Case "."c
  18.                 Return "ສ"c
  19.             Case "/"c
  20.                 Return "ຊ"c
  21.             Case "0"c
  22.                 Return "ຍ"c
  23.             Case "1"c
  24.                 Return "ດ"c
  25.             Case "2"c
  26.                 Return "ຕ"c
  27.             Case "3"c
  28.                 Return "ຖ"c
  29.             Case "5"c
  30.                 Return "ນ"c
  31.             Case "6"c
  32.                 Return "ບ"c
  33.             Case "7"c
  34.                 Return "ປ"c
  35.             Case "8"c
  36.                 Return "ຜ"c
  37.             Case "9"c
  38.                 Return "ຝ"c
  39.             Case ":"c
  40.                 Return "ພ"c
  41.             Case ";"c
  42.                 Return "ຟ"c
  43.             Case "<"c
  44.                 Return "ມ"c
  45.             Case "="c
  46.                 Return "ຢ"c
  47.             Case "@"c
  48.                 Return "ວ"c
  49.             Case "A"c
  50.                 Return "ຫ"c
  51.             Case "B"c
  52.                 Return "ອ"c
  53.             Case "C"c
  54.                 Return "ຮ"c
  55.             Case "D"c
  56.                 Return "ຽ"c
  57.             Case "E"c
  58.                 Return "ະ"c
  59.             Case "F"c
  60.                 Return "າ"c
  61.             Case "G"c
  62.                 Return "ຳ"c
  63.             Case "H"c
  64.                 Return "ເ"c
  65.             Case "I"c
  66.                 Return "ແ"c
  67.             Case "J"c
  68.                 Return "ໂ"c
  69.             Case "K"c
  70.                 Return "ໃ"c
  71.             Case "L"c
  72.                 Return "ໄ"c
  73.             Case "M"c
  74.                 Return "ໆ"c
  75.             Case "N"c
  76.                 Return "ຯ"c
  77.             Case "P"c
  78.                 Return "່"c
  79.             Case "Q"c
  80.                 Return "້"c
  81.             Case "U"c
  82.                 Return "ຫ"c
  83.             Case "V"c
  84.                 Return "ໜ"c
  85.             Case "W"c
  86.                 Return "ໝ"c
  87.             Case "r"c
  88.                 Return "ທ"c
  89.             Case "s"c
  90.                 Return "ຣ"c
  91.             Case "t"c
  92.                 Return "ລ"c
  93.             Case "x"c
  94.                 Return "ໍ"c
  95.             Case "y"c
  96.                 Return "ັ"c
  97.             Case "z"c
  98.                 Return "ິ"c
  99.             Case "{"c
  100.                 Return "ີ"c
  101.             Case "|"c
  102.                 Return "ຶ"c
  103.             Case "}"c
  104.                 Return "ື"c
  105.             Case "~"c
  106.                 Return "ົ"c
  107.             Case ChrW(127)
  108.                 Return "ຸ"c
  109.             Case ChrW(128)
  110.                 Return "ູ"c
  111.             Case ChrW(129)
  112.                 Return "ຼ"c
  113.             Case ChrW(130)
  114.                 Return "່"c
  115.             Case ChrW(131)
  116.                 Return "້"c
  117.             Case ChrW(132)
  118.                 Return "໊"c
  119.             Case ChrW(133)
  120.                 Return "໋"c
  121.             Case ChrW(134)
  122.                 Return "໌"c
  123.             Case "Ú"c
  124.                 Return "-"c
  125.         End Select

  126.         Return StrChr
  127.     End Function
คัดลอกไปที่คลิปบอร์ด


Operator

Operator
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-9-21 10:08 , Processed in 0.248872 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้