FBVIDEODOWNLOADER ပံုစံမ်ိဳးလုပ္​ခ်င္​ၾကသူ​ေတြအတြက္

FBVIDEODOWNLOADER ပံုစံမ်ိဳးလုပ္​ခ်င္​ၾကသူ​ေတြအတြက္​ www.m.facebook.com​ေနရာမွာတျခားဟာထည္​့လဲရတယ္​​ေနာ္​ ☺

Main
=======

AddPanel("p",0,0,100*x,100*y,"")
SetVisible("p",true)

AddLabel("l1",5*x,5*y,80*x,10*y,"p")
SetText("l1","How to use:")
SetTextSize("l1",22)

AddLabel("l2",5*x,14*y,80*x,10*y,"p")
SetText("l2","1. Click on Browse Facebook.")
SetTextSize("l2",22)

AddLabel("l3",5*x,23*y,83*x,10*y,"p")
SetText("l3","2. Login and browse your wall.")
SetTextSize("l3",22)

AddLabel("l4",5*x,32*y,80*x,10*y,"p")
SetText("l4","3. Play the Video you want to download.")
SetTextSize("l4",22)

AddLabel("l5",1*x,45*y,90*x,10*y,"p")
SetText("l5"," 4. Click yes to download Video.")
SetTextSize("l5",22)

AddButton("b",15*x,92*y,72*x,8*y,"p")
SetText("b","GOT IT!")
SetTextSize("b",15)

AddPanel("p1",0,0,100*x,100*y,"")
SetVisible("p1",false)
SetColor("p1",0,cBlack)

AddButton("b1",-1*x,-1*y,102*x,12*y,"p1")

AddButton("b2",-1*x,90*y,110*x,13*y,"p1")

AddButton("b3",20*x,78*y,60*x,7*y,"p1")
SetText("b3","Browse Facebook")
SetTextColor("b3",cWhite)
SetColor("b3",3,cGray)

AddPanel("p2",0,0,100*x,100*y,"")
SetVisible("p2",false)

AddButton("b4",-1*x,-1*y,102*x,12*y,"p2")

AddWebView("b5",0,10*y,100*x,90*y,"p2")

WebViewLoadUrl("b5","https://m.facebook.com/")

Bitmapinit("AssetsDir","a.jpg")
setBackgroundimage("b1")
SetGravity("b1",119)

Bitmapinit("AssetsDir","b.jpg")
setBackgroundimage("b2")
SetGravity("b2",119)

Bitmapinit("AssetsDir","c.jpg")
setBackgroundimage("b4")
SetGravity("b4",119)

AddPanel("bk",10%x,30%y,80%x,30%y,"")

SetVisible("bk",false)

AddButton("by",60%x,22%y,15%x,7%y,"bk")
SetText("by","YES")
SetTextColor("by",cCyan)

AddButton("bn",40%x,22%y,15%x,7%y,"bk")
SetText("bn","NO")
SetTextColor("bn",cCyan)

SetVisible("bk",false)
SetTextSize("by",16)
SetTextSize("bn",16)

Bitmapinit("AssetsDir","d.jpg")
setBackgroundimage("bk")
SetGravity("bk",119)

Bitmapinit("AssetsDir","e.jpg")
setBackgroundimage("by")
SetGravity("by",119)

Bitmapinit("AssetsDir","e.jpg")
setBackgroundimage("bn")
SetGravity("bn",119)

AddMenuItem("about")

Event
=======

Sub Label_Click(Who)
End Sub

Sub Panel_Click(Who)
End Sub

Sub Button_Click(Who)

Select Who

Case"by"
ActivityFinish

Case"bn"

SetVisible("p",false)

Case"b"
SetVisible("p",false)
SetVisible("p1",true)

Case"b3"
SetVisible("p1",false)
SetVisible("p2",true)

End Select
End Sub
Sub Button_LongClick(Who)
End Sub

Sub WebView_PageFinished(who, url)
End Sub

Sub Activity_KeyPress(key)

If key= 4 then

SetVisible("bk",true)

End If
End Sub

Sub Menu_Click(Which)

MsgBox("Created balbla","")

End Sub