Spanish TabHost con imagen

[mvera]

Hola he probado TabHost y me funciona bien , ahora quiero hacerlo con imágenes. encontré.


bmp1 = LoadBitmap(File.DirAssets, "lupa.bmp")
bmp2 = LoadBitmap(File.DirAssets, "reportebmp.bmp")

tbhPages.AddTabWithIcon("Buscar", bmp1, bmp2,"buscar_p.bal")
tbhPages.AddTabWithIcon("Reportar", bmp1, bmp2,"reportes_p.bal")


pero al momento de funcionar solo me muestra "buscar" y "reportar"
Alguien tiene por ahi una muestra funcionando que me pueda orientar.

No tengo claro por donde tengo que cargar las fotos por el designer que tiene un lugar para cargar fotos o por file manager.




Saludos

 

[bgsoft]

Hola mvera

Antes de nada decirte que cuando escribas código lo pongas entre [ CODE] [ /CODE] (le he añadido un espacio para que lo veas) , está en el icono de arriba Insert, de esa forma se entiende mejor.

El código es correcto, supongo que antes de asignar los valores de los bmp habras puesto Dim bmp1, bmp2 As Bitmap, pero tienes que cargar las imágenes para que las ponga en el DirAssets , en el designer puedes añadirlo en el botón "Add Files", y si lo quieres hacer desde la ventana principal, se hace desde la pestaña "Files Manager" y el botón "Add Files".

Te aconsejo que los ficheros sean jpg o png para que así pese menos la APP

Saludos