Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль

Показать сообщение отдельно
Pro_grammer
Модератор
5936 / 2097 / 401
Регистрация: 24.04.2011
Сообщений: 3,579
Записей в блоге: 10
10.05.2014, 15:02  [ТС]
Цитата Сообщение от Flamberg Посмотреть сообщение
а как сделать что-бы при установке на рабочий стол ярлык добавлялся?
Как я понял, надо искать по ключевому слову INSTALL_SHORTCUT
Что удалось найти:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.SetComponent(Common.ShortcutPackage & "/.shortcutexec")
shortcutIntent.PutExtra("from_shortcut", True)
shortcutIntent.PutExtra("sc_type", SCType)
shortcutIntent.PutExtra("sc_value", SCValue)
shortcutIntent.PutExtra("sc_destination", SCDestination)
shortcutIntent.PutExtra("sc_toast", SCToast)
shortcutIntent.PutExtra("sc_notification", SCNotification)
shortcutIntent.PutExtra("sc_extra1", "")
shortcutIntent.PutExtra("sc_extra2", "")
Dim in As Intent
in.Initialize("", "")
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", txtName.Text)
in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, imageFN))
Не пробовал, испытай, потом расскжи кк работает.

Добавлено через 14 минут
Цитата Сообщение от Flamberg Посмотреть сообщение
Окраска происходит так:
Я это делаю проще, без всяких прелюдий сразу
Visual Basic
1
Label1.Color = Colors.RGB(255,80,80)
И всё работает замечательно.
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru