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

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

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

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

232

กระทู้

328

โพสต์

2744

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2744

ว่ากันง่ายๆ แอดมินเขียนโค้ดชุดนี้ขึ้นมาเพื่อทดแทน 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) at the end.
  12.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
  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

กระทู้

11

โพสต์

166

เครดิต

Member

Rank: 2

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

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

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

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

GMT+7, 2020-6-1 14:35 , Processed in 0.572324 second(s), 4 queries , File On.

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

© 2001-2017 Comsenz Inc.

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