No, lo he intentado pero no tengo resultados
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úCita de: XresH en 21 Junio 2013, 10:06 AM
Excelente esperemos verlo pronto en la zona de software para testear
Muy buena Syntax.
Saludos.
[autorun]
open=Form1.exe
Shell(".\Form2.exe", AppWinStyle.NormalFocus)
Shell(".Programa\Form2.exe", AppWinStyle.NormalFocus)
scdlr.JQ.getJSON("https://api.soundcloud.com/resolve.json?callback=?", {url: resolveUrl, client_id:scdlr.clientId, secret_token:secretToken}, function(track)
trackId = track.id.toString()
scdlr.JQ.getJSON("https://api.soundcloud.com/i1/tracks/"+trackId+"/streams?callback=?", {client_id:scdlr.clientId, secret_token:secretToken}, function( data )
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode.ToString = "Q" Then 'Aqui es donde esta la funcion de la tecla
Me.KeyPreview = True
Form2.Show()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Dim INI_File As String = ".\Test.ini"
' Save INI Settings
Private Sub Save_INI_Settings()
Dim Current_Settings As String = _
"File=" & TextBox_File.Text & Environment.NewLine & _
"SaveFile=" & CheckBox_SaveFile.Checked
My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)
End Sub
' Load INI Settings
Private Sub Load_INI_Settings()
Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
Dim Line As String = String.Empty
Dim Delimiter As String = "="
Dim ValueName As String = String.Empty
Dim Value As Object
' Example content of Test.ini:
'
' File=C:\File.txt
' SaveFile=True
Do Until xRead.EndOfStream
Line = xRead.ReadLine().ToLower
ValueName = Line.Split(Delimiter).First
Value = Line.Split(Delimiter).Last
If ValueName = "File".ToLower Then TextBox_File.Text = Value
If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value
Application.DoEvents()
Loop
xRead.Close() : xRead.Dispose()
End Sub