Bueno la sugerencia seria esa, un subforo dedicado a la programacion en Android. Se que esta ya el subforo de Java pero creo que no deberian mezclarse ya que la forma de programar en Android y sus ciclos de vida no tienen nada que ver con Java.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúImports Skybound.Gecko
Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Public Class Form1
Sub New()
' Llamada necesaria para el diseñador.
InitializeComponent()
Xpcom.Initialize(Environment.CurrentDirectory + "\xulrunner")
Skybound.Gecko.GeckoPreferences.Default("nglayout.initialpaint.delay") = 0
Skybound.Gecko.GeckoPreferences.Default("network.http.pipelining") = True
Skybound.Gecko.GeckoPreferences.Default("network.http.pipelining.maxrequests") = 12
Skybound.Gecko.GeckoPreferences.Default("network.http.max-connections-per-server") = 17
Skybound.Gecko.GeckoPreferences.Default("network.http.max-persistent-connections-per-server") = 6
Skybound.Gecko.GeckoPreferences.Default("network.http.pipelining.ssl") = True
Skybound.Gecko.GeckoPreferences.Default("network.http.proxy.pipelining") = True
Skybound.Gecko.GeckoPreferences.Default("content.notify.backoffcount") = 5
Skybound.Gecko.GeckoPreferences.Default("plugin.expose_full_path") = True
Skybound.Gecko.GeckoPreferences.Default("ui.submenuDelay") = 0
Skybound.Gecko.GeckoPreferences.Default("Browser.sessionhistory.max_total_viewers") = 0
Skybound.Gecko.GeckoPreferences.Default("Browser.sessionhistory.max_entries") = 10
Skybound.Gecko.GeckoPreferences.Default("browser.cache.memory.capacity") = 6144
Skybound.Gecko.GeckoPreferences.Default("config.trim_on_minimize") = True
Skybound.Gecko.GeckoPreferences.Default("extensions.blocklist.enabled") = False
Skybound.Gecko.GeckoPreferences.Default("accessibility.typeaheadfind.enablesound") = False
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
gkFX.Navigate("www.google.es")
End Sub
End Class
Imports Skybound.Gecko
Public Class GeckoFX
Inherits GeckoWebBrowser
End Class
CitarProblem Event Name: CLR20r3
Problem Signature 01: core.exe
Problem Signature 02: 1.0.0.0
Problem Signature 03: 52a9c249
Problem Signature 04: core
Problem Signature 05: 1.0.0.0
Problem Signature 06: 52a9c249
Problem Signature 07: d
Problem Signature 08: c6
Problem Signature 09: System.InvalidOperationException
OS Version: 6.1.7601.2.1.0.256.1
Locale ID: 1033
Option Explicit
Dim StrOper As String
Dim IntVal As Double
Dim IntVal2 As Double
Private Sub cmdCien_Click()
If txtResultado.Text <> "" Then
StrOper = "%"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdDel_Click(Index As Integer)
txtResultado.Text = ""
End Sub
Private Sub cmdDiv_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "/"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdDot_Click()
txtResultado.Text = txtResultado.Text & "."
End Sub
Private Sub cmdIgual_Click(Index As Integer)
IntVal2 = txtResultado.Text
If StrOper = "+" Then
txtResultado.Text = Val(IntVal) + Val(IntVal2)
End If
If StrOper = "-" Then
txtResultado.Text = Val(IntVal) - Val(IntVal2)
End If
If StrOper = "*" Then
txtResultado.Text = Val(IntVal) * Val(IntVal2)
End If
If StrOper = "/" Then
txtResultado.Text = Val(IntVal) / Val(IntVal2)
End If
If StrOper = "%" Then
txtResultado.Text = Val(IntVal) / 100 * Val(IntVal2)
End If
End Sub
Private Sub cmdMas_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "+"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdMenos_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "-"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdMul_Click(Index As Integer)
If txtResultado.Text <> "" Then
StrOper = "*"
IntVal = txtResultado.Text
txtResultado.Text = ""
Else
txtResultado.Text = ""
End If
End Sub
Private Sub cmdNum_Click(Index As Integer)
txtResultado.Text = txtResultado.Text & Index
End Sub
Private Sub cmdSqrt_Click()
If txtResultado.Text <> "" Then
StrOper = "Sqrt"
IntVal = txtResultado.Text
txtResultado.Text = ""
If IntVal < 0 Then
MsgBox "Numero negativo!"
Else
txtResultado.Text = Sqr(Val(IntVal))
End If
End If
End Sub
Private Sub Salir_Click()
Beep
End
End Sub
Open App.Path & "\Archivo.txt" For Output As #1