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

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

[VB.NET] การกำหนดตำแหน่งพาธให้กับโปรเจค

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

320

กระทู้

512

โพสต์

6617

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6617

ว่ากันง่ายๆ แอดมินเขียนโค้ดชุดนี้ขึ้นมาเพื่อทดแทน App.Path ใน VB6 ครับพี่น้อง
ต้องขึ้นอยู่กับว่าเราตั้งค่าการ Build output path เอาไว้ที่ไหน
โดย Windows 64 บิท จะอยู่ที่
"\bin\debug"
"\bin\release"

หรือ Windows 32 บิท
"\bin\x86\debug"
"\bin\x86\release"

สมมุติอ่านค่า Application.StartupPath ได้เป็น
C:\Project VB.Net\ConnectAccessNET\bin\debug

เราจะถอยหลังโดยการตัด \bin\debug ทิ้งออกไป โดยการเปรียบเทียบค่าเพื่อให้เป็น
C:\Project VB.Net\ConnectAccessNET
  1.     ' / --------------------------------------------------------------------------------
  2.     ' / Get my project path
  3.     ' / AppPath = C:\My Project\bin\debug
  4.     ' / Replace "\bin\debug" with ""
  5.     ' / Return : C:\My Project\
  6.     Function MyPath(AppPath As String) As String
  7.         '/ MessageBox.Show(AppPath);
  8.         AppPath = AppPath.ToLower()
  9.         '/ Return Value
  10.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
  11.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
  12.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
  13.     End Function
คัดลอกไปที่คลิปบอร์ด
เป็นฟังค์ชั่นที่รับค่า StartupPath และรีเทิร์นคืนค่ากลับแบบ String ตามที่เรากำหนด ...

(ข้อผิดพลาดในการแสดงผล เพราะมันไม่โชว์เครื่องหมาย \) แก้ไขบรรทัดก่อน End Function ...
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

ยกตัวอย่างการนำไปใช้งาน

  1.         Dim strPathData As String = MyPath(Application.StartupPath) & "Data"
  2.         Dim strPathImages As String = MyPath(Application.StartupPath) & "Images"
คัดลอกไปที่คลิปบอร์ด
strPathData = "C:\Project VB.Net\ConnectAccessNET\data"
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

33

โพสต์

372

เครดิต

Full Member

Rank: 3Rank: 3

เครดิต
372
โพสต์ 2020-2-20 01:26:58 | ดูโพสต์ทั้งหมด

ขอบพระคุณคับ อาจารย์

0

กระทู้

6

โพสต์

16

เครดิต

Newbie

Rank: 1

เครดิต
16
โพสต์ 2020-8-6 09:19:17 | ดูโพสต์ทั้งหมด

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

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

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

GMT+7, 2024-12-12 23:21 , Processed in 0.209361 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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