مانند آموزش تغییر اندازه متن یک پاراگراف می توانید اندازه رنگ را نیز با همان روش تغییر دهید:
document.getElementById("idname").style.color = "red";
شما می توانید به جای عبارت red نام رنگی دیگر را وارد کرده و یا هم کد یک رنگ را بنویسید.
idname نام آی دی پاراگراف می باشد.
دستور Date() زمان و ساعت سیستم را بر می گرداند. شما می توانید به عنوان مثال متن یک پاراگراف را برابر با مقدار بر گردانده شده توسط این دستور قرار دهید:
document.getElementById("idname").innerHTML = Date();
همانطور که در آموزش های قبلی ذکر کردیم idname آی دی پاراگراف می باشد.
document.getElementById("idname").style.fontSize = "77px";
idname نام id پاراگراف می باشد و 77px اندازه ای است که می خواهیم تغییر کند.
با اجرای دستور بالا اندازه متن به 77px تغییر پیدا خواهد کرد...
<p id="p1">First document Java Script!</p>
حالا کد زیر را در هر رویدادی (فانکشنی) که خواستیم قرار می دهیم:
document.getElementById("p1").innerHTML = "Changed text!";
عبارت p1 نام آیدی پاراگراف ما می باشد و Changed text متنی که می خواهیم به آن تغییر کند.
با اجرای کدهای بالا متن پاراگراف به Changed text تغییر خواهد کرد.
برای گرفتن آیکون یک فایل اجرایی ابتدا باید ساب زیر را بنویسید:
برای استفاده هم باید نام ساب یعنی GetFileIcon را بنویسید و ورودی اول مسیر فایل و ورودی دوم نام فایل را از شما می گیرید و یک متغیراز نوع Image به شما برگردانده می شود.Sub GetFileIcon(Dir As String, FileName As String) As Image
Dim jo As JavaObject
Dim JavaFile As JavaObject
JavaFile.InitializeNewInstance("java.io.File", Array(File.Combine(Dir, FileName)))
Dim icon As JavaObject = jo.InitializeStatic("sun.awt.shell.ShellFolder").RunMethodJO( _
"getShellFolder", Array(JavaFile)).RunMethod("getIcon", Array(True))
Return AwtImageToImage(icon)
End Sub
Private Sub AwtImageToImage(img As JavaObject) As Image
Dim jo As JavaObject
Return jo.InitializeStatic("javafx.embed.swing.SwingFXUtils").RunMethod("toFXImage", Array(img, Null))
End Sub
سلام
جدول تمام Event های موجود برای تمامی ویو ها در B4A به شرح زیر:
سلام
این آموزش تضمینی نیست و ممکنه که برنامه شما هک شود اما امنیت را بسیار بالا می برد. ابتدا یک کتابخانه دارد که باید از اینجا دانلود کنید .
قبل از انجام درون پرداخت باید کد های زیر را بنویسید:
k1.Initialize
If k1.CheckPatcher = True Then
msgbox("شما از نرم افزار هک استفاده می کنید و نمی توانید از درون پرداخت استفاده کنید !","خطا")
else
'این جا درون پرداخت را انجام دهید.
End if
سپس هر زمان خواستید از این ساب استفاده کنید. این ساب از شما همان مقدار رنگ شبیه 0xFF45DD92 را می گیرد و کد RGB را به صورت مثلا 25,96,215 بر گشت می دهد.Sub GetColorRGB(ColorValue As Paint) As String
Dim result As String = ""
Dim joCV As JavaObject = ColorValue
Dim R As Double = joCV.RunMethod("getRed", Null)
Dim G As Double = joCV.RunMethod("getGreen", Null)
Dim B As Double = joCV.RunMethod("getBlue", Null)
result = Round(R * 255) & "," & Round(G * 255) & "," & Round(B * 255)
Return result
End Sub