شرط باز کردن یک مقدار با شرط http

[sajadakbari 163]

سلام

من برای link.tag که از دیتابیس میاد میخوام یه شرط بزارم. که اگه لینک http بود بیا با فلان برنامه بازش کن.

من خودم اینطوری نوشتم. اما فکر کنم جایشش اشتباه هست.

If (link.Tag.StartsWith("http://")) Then

ممنون میشم کمک کنید.

[مجید آرتا 5,875]

 ببینید کلا خاصیت Tag  تابع StartWith  رو نداره

بنده فکر کردم شما کد رو توی بیسیک نوشتید و گفتم درسته

ببینید شما میتونید به این شکل عمل کنید :

 Dim GetLink As String
 GetLink = link.Tag
 If GetLink.StartsWith("http://") Then
 
 End If

[مجید آرتا 5,875]

سلام

نه کد درسته تست کنید.

[sajadakbari 163]

تست کردم.

این ارور رو میده.

B4A version 4.30
Parsing code.                           0.00
Compiling code.                         Error
Error compiling program.
Error description: Unknown type: Object
Are you missing a library reference?
Occurred on line: 72
If (link.Tag.StartsWith("http://")) Then
Word: startswith
The following objects added permissions (duplicates are ignored):
No permissions were added.

یه سئوال دیگه هم دارم.

اینکه روی یه لینکی از مولتی پنل کلیک کنم. بعد یه صفحه مثل پاپ آپ باز بشه. و توش چندتا لینک از دیتابیس بیاد مربوط به همون آی دی باید چیکار کنم.

از چه عنصری استفاده میشه واسه این کار؟

[sajadakbari 163]

کاملا درست بود آقای آرتا ممنون از شما.

 

فقط اون سئوالی که بالا کردم. باید واسش چیکار کنم. وقتی روی باتون کلیک میشه مثل پاپ آپ بیاد بالا و با خودش  6 تا لینک از دیتابیس مربوط به همون آی دی داشته باشه.

باید از چی واسه این کار استفاده کنم.؟

[مجید آرتا 5,875]

خب چیزی که شما میخوایید اقای اکبری ببینید حالا کتابخونه های مختلفی واسه پاپ اپ هست

نکته اینه که شما باید بدونید که مثلا توی همین دیتابیستون که 6تا لینک دارید باید Tag  دکمه رو طبق id  هر فیلد بسازید.

طبیعتا از tag  دارید استفاده  میکنید یعنی توی مولتی پنل می خوایید.خب ببینید بازم میگم شما باید این دکمه رو تگش رو برابر با id  قرار بدید

خب وقتی کلیک میشه میخوایید 6تا لینکو بگیرید :

Sub Button_Click
 Dim btn As Button
 btn = Sender
 Dim Cr As Cursor 
 Cr = SQL.ExecQuery("SELECT * FROM TabaleName WHERE id="&btn.Tag)
 Cr.Position = 0
 Dim L As List
 L.Initialize
 L.AddAll(array As String(Cr.GetString("Link1"),Cr.GetString("Link2"),Cr.GetString("Link3"),Cr.GetString("Link4"),Cr.GetString("Link5"),Cr.GetString("Link6")))
End Sub

میشه گفت یه همچین کدی میتونیم بنویسیم.ببینید این کدهارو بنده ذهنی نوشتم تست نکردم و میخواستم واسه شما ذهنیتشو ایجاد کنم.خب شما این لیست و که گرفتید باید به PopUp  خودتون اضافه کنید.

حالا مثلا بنده اینو میدم به InputList :

Dim R As Int
R = InputList(L,"Items",-1)

اون -1 یعنی هیچ آیتمی رو انتخاب نکن.و شما باید  R  رو محاسبه کنید یعنی اگه R  نا مساوی بود با -1 یعنی یک آیتم کلیک شده که اینجا باید طبق R  انتخاب شده برید به همون لینک مورد نظر

یکم باید کار کنید تا متوجه بشد

[sajadakbari 163]

ممنون از لطفتون .

انشالله که بتونم بهمم.