Search Results

You need to remember that you can no longer access UI elements of random items. If there is any state that needs to be preserved then you should add it to the custom type that is used as the item's value. As an example we will change the content color whenever an item is clicked: Type CardData (Ti

Updating an Event. Using the EventID you just can fill a ContentValues with all Values you want to change. dim Value as int = 1334 ' EventID Dim selectionArgs() As String = Array As String(Value) Dim val As ContentValues val.Initialize val.PutString(econ.TITLE,"Some new Titl
link: see above. it is listed above how to insert an Calendaritem. Once you have the EventID you can add a Reminder like this Adding a Reminder using the
link: Adding an Attendee: Adding a Attendee is using the Attendeesconstants. Dim acon As AttendeesConstants Dim val As ContentValues Dim event As
link: Creating an Event in a specific Calendar: Please note that the Calendar used here has an AccountType of "com.google". Dim FromTime As Long = Date

"xxxxx Calendar") ContentValues1.PutInteger(G_CalendarConstants.CALENDAR_COLOR,-3144201) ContentValues1.PutInteger(G_CalendarConstants.CALENDAR_ACCESS_LEVEL,200) ContentValues1.PutInteger(G_CalendarConstants.SYNC_EVENTS,1) ContentValues1.PutString(G_CalendarConstants.CALENDAR_TIME_ZO

Depends on: Phone, JavaObject and ContentResolver libraries Sub AddBitmapToGallery (In As InputStream, TargetName As String, MimeType As String) Dim p As Phone Dim ctxt As JavaObject ctxt.InitializeContext If p.SdkVersion >= 29 Then Dim cr As ContentResolver cr.Init

I had to modify the class to get download the file. The head.Response.ContentLength always returns 0. Public Sub Download (Dir As String, FileName As String, URL As String, Tracker As RangeDownloadTracker) As ResumableSub Dim head As HttpJob head.Initialize("", Me) head.Head(URL) Wait For (hea

This is the behavior of the underlying OkHttp SDK. I've used this code in the very useful RangeDownloader module, to get headers values: Private Sub GetCaseInsensitiveHeaderValue (job As HttpJob, Key As String, DefaultValue As String) As String Dim headers As Map = job.Response.GetHeaders
link: It looks like ContentLength under B4A/B4J is as it relates to the size of the body public long getContentLength() throws IOException {

https://www.b4x./?query=ContentValues Dim values As ContentValues Dim uri1 As Uri uri1.Parse("content://com.android.contacts/raw_contacts") ' adapt. this is from an example values.Initialize values.PutNull("account_name") values.PutNull("account_type") Dim rawUri As Uri = cr.In
link: Previously I asked a question on how to delete thumbnails from mediastore and got a working solution from Erel using ContentResolver. Now I am trying

Code to write a Dataset to the Provider: Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private prov As DataProvider Private cr As ContentResolver End Sub Dim m As Map = CreateMa

tmp, "0" & tmp) Dim content3 As String Dim m As String If cashvalue = 0 Then content3 = "5303764" & "5802TH" m = content1 & content3 & "6304" Else content3 = "5802TH" & "5303764" 'm = content1 & content3 & content2 & cashmoney & "6304" m = content1 & content2 & cashmoney & conten
link: Dim bc As ByteConverter Dim PromptPayAccount As String = "A000000677010111" Dim ReferAccNo As String = "004999054061618" Dim cashmoney As String = "15
link: tmp, "0" & tmp) Dim content3 As String Dim m As String If cashvalue = 0 Then 'content3 = "53037645802TH6304" content3 = "5303764" & "5802TH" &

Note that we use LIKE in the selection. Sub UpdateStarred (Name As String, Starred As Boolean) Dim u As Uri u.Parse("content://com.android.contacts/contacts") Dim values As ContentValues values.Initialize values.PutBoolean("starred", Starred) Log(cr.Update(u, values, "display_name

Powered by ColBERT