مشکل در کد اشتراک گذاری

[mehranarzani 39]

سلام دوستان این کد متن منه میخوام براش اشتراک گذاری قرار بدم هر کدی رو که میدم اررو میده لطفا کمکم کنید

 

 

اینم کدم

 

 

Dim h As Int
For i = 0 To 14
            'اضافه کردن متن
        If cur.GetString("matn"&i) <> Null Then
            Dim text As Label
            text.initialize("Label")
            text.text = cur.GetString("matn"&i)
            text.Gravity = Gravity.RIGHT
            text.TextColor = Colors.Black
            text.TextSize = menu.fontsize
            text.Typeface = Typeface.LoadFromAssets(menu.font &".ttf")
            ScrollView1.Panel.AddView(text,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
            Dim su As StringUtils
            text.Height= su.MeasureMultilineTextHeight(text,text.text)+10
            h = h + su.MeasureMultilineTextHeight(text,text.text) + 30
            ScrollView1.Panel.Height = h
        End If

[مهدی ایزدی 9,203]

درود

دوست عزیز بنده اینجا کد اشتراک گذاری نمیبینم اصلا !!!

[Elyas Erfani 3,582]

همینطور ک اقای ایزدی هم گفتن اصلا اینجا کدی واسه اشتراک‌ ننوشتید شما

واسه اشتراک گذاری متن بهترین راه استفاده از کتابخانه جناب شاهدیه

StartActivity(AriaLib1.ShareText("متن","Subject"))

[mehranarzani 39]

Dim h As Int

For i = 0 To 14

            'اضافه کردن متن

        If cur.GetString("matn"&i) <> Null Then

            Dim text As Label

            text.initialize("Label")

            text.text = cur.GetString("matn"&i)

            text.Gravity = Gravity.RIGHT

            text.TextColor = Colors.Black

            text.TextSize = menu.fontsize

            text.Typeface = Typeface.LoadFromAssets(menu.font &".ttf")

            ScrollView1.Panel.AddView(text,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)

            Dim su As StringUtils

            text.Height= su.MeasureMultilineTextHeight(text,text.text)+10

            h = h + su.MeasureMultilineTextHeight(text,text.text) + 30

            ScrollView1.Panel.Height = h

        End If

 

 

 

 

 

share_Click
    Dim text As Label
    text.initialize("Label")
    Dim In As Intent
    In.Initialize(In.ACTION_SEND,"")
    In.SetType("text/plain")
    In.PutExtra("android.intent.extra.TEXT",text.Text)
    In.WrapAsIntentChooser("به اشتراک گذاری ...")
    StartActivity(In)
 

 

 

این کد

 

نگا کنیدو مشکلو بگین

[mehranarzani 39]

هنوزم منتظر جوابم یه کد اشتراک گذاری بدین داااااا :( :@ :( :( :@ :@

[sajad8888 819]

Sub btnshare_Click

        File.Writestring(File.DirInternal,"test.txt",label1.text)

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"test.txt"))

i.WrapAsIntentChooser("اشتراک گذاری")

StartActivity(i)

End Sub

 

[mehranarzani 39]

ممنون چک میکنم خبر میدم :tashvigh: :gol: