Mensajes

[Pero ese no es el chiste]

Asi que lo pongo por medio de un "PictureBox" Pero ese no es el chiste :/

No entendí eso, ¿Cual es el problema?

Un textbox es un textbox, no es un control para mostrar imágenes, quiero decir que no te preocupes, la forma de hacerlo es como lo estás haciendo, usando un picturebox. o creando un usercontrol de un TextBox para poner tu imagen xD, pero eso mejor no lo intentes (todavía) es dificil.

EDITO: Bueno, o puedes dibujar un gráfico usando GDI

Saludos

Ya no lo necesito, pero gracias!

Ninguno de lo que me has mostrado me convence, creo que seguiré usando los de WinAmp, se adaptan bien a los cambios:


Saludos

[WinAmp]

...Al final he extraido los iconos del exe del reproductor WinAmp, y no están muy mal:



Aunque no me gustan mucho, sigo esperando a ver si alguien se anima a compartir...

Saludos.

Acabo de descubrir que para enviar un "scroll up/scroll down" se hace con la función SendInput: http://msdn.microsoft.com/en-us/library/windows/desktop/ms646310%28v=vs.85%29.aspx

si puedes postea tu code para aprender.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Public Structure Point
        Public X As Integer
        Public Y As Integer
    End Structure

    Public Structure Msllhookstruct
        Public Location As Point
        Public MouseData As Integer
        Public Flags As Integer
        Public Time As Integer
        Public ExtraInfo As Integer
    End Structure

    Private Delegate Function HookProc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As Integer


    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function SetWindowsHookEx(ByVal hookType As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As Msllhookstruct) As IntPtr
    End Function

    Public Hook As IntPtr

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Hook = SetWindowsHookEx(14, AddressOf Proc, Process.GetCurrentProcess().MainModule.BaseAddress.ToInt32(), 0)
    End Sub

    Private Function Proc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As IntPtr
        If wParam = 522 Then
            Dim Delta = CShort(lParam.MouseData >> 16)

            If Delta > 0 Then
                ' Up
                MsgBox("Up")
            ElseIf Delta < 0 Then
                ' Down
                MsgBox("Down")
            End If
        End If

        Return CallNextHookEx(Hook, nCode, wParam, lParam)
    End Function

End Class

[EDITO:]

Necesito los típicos botones de Play, Pause, Stop, Previous y Next, preferíblemente de estilo mínimal.

El problema de buscar estos iconos en google images es que te pueden salir resultados muy variados, por ejemplo un icono azul y otro rosa... ya me entienden.

Sé como encontrar este tipo de recursos de manera más eficaz... pero antes de ponerme a revisar las infinitas páginas de DeviantArt y otros sitios pues... me gustaría saber si alguien ha hecho algún proyecto relacionado a reproductores de video/audio y si quiere compartir el pack de iconos que usó en su reproductor...

Gracias.

Por si no lo entienden, aquí irian los iconos de los botonoes:



Saludos.

EDITO:

Pfff... La verdad es que todos los sets de iconos que encuentro son de pago... y en deviantart y findicons no encuentro nada parecido.

Busco algo más o menos como esto:

Una Class para controlar WinAmp: http://pastebin.com/4yC91AnD
También está disponible compilada en un dll: http://sourceforge.net/projects/wacc/

PD: Funciona en las versiones 5.X

Ejemplos de uso (Aparte de los oficiales):

Código (vbnet) [Seleccionar] Expandir

#Region " Examples "

' // By Elektro H@cker
'
' INSTRUCTIONS:
'
' 1. Add a reference for "WACC.DLL"

Public Class Form1

   Dim Winamp As WACC.clsWACC = New WACC.clsWACC

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       ' // Bind the WinAmp process to the variable object
       Winamp.Bind()

       ' // Get WinAmp process PID
       ' Winamp.ProcessID()

       ' // Close WinAmp
       ' Winamp.CloseWinamp()

       ' // Restart WinAmp
       ' Winamp.RestartWinamp()

       ' // Open new instance of WinAmp
       ' Winamp.OpenNewInstance()

       ' // Play playback
       ' Winamp.Playback.Play()

       ' // Pause playback
       ' Winamp.Playback.PauseUnpause()

       ' // Stop playback
       ' Winamp.Playback.Stop()

       ' // Junp to previous track
       ' Winamp.Playlist.JumpToPreviousTrack()

       ' // Junp to next track
       ' Winamp.Playlist.JumpToNextTrack()

       ' // Rewind 5 seconds of the current song
       ' Winamp.Playback.Rewind5s()

       ' // Forward 5 seconds of the current song
       ' Winamp.Playback.Forward5s()

       ' // Get Track Length
       ' Winamp.Playback.GetTrackLength * 1000 '(ms)

       ' // Set Track Position
       ' Winamp.Playback.TrackPosition = 60000 ' (ms)

       ' // Get WinAmp state
       ' MsgBox(Winamp.Playback.PlaybackState().ToString)
       ' If Winamp.Playback.PlaybackState = clsWACC.cPlayback.Playback_State.Playing Then : End If

       ' // Set volume
       ' Winamp.AudioControls.Volume = Math.Round(50 / (100 / 255))

       ' // Volume up
       ' Winamp.AudioControls.VolumeUp()

       ' // Volume down
       ' Winamp.AudioControls.VolumeDown()

       ' // Get current track BitRate
       ' MsgBox(Winamp.Playback.Bitrate.ToString & " kbps")

       ' // Get current track SampleRate
       ' MsgBox(Winamp.Playback.SampleRate.ToString & " kHz")

       ' // Get current track channels
       ' MsgBox(Winamp.Playback.Channels.ToString & " channels")

       ' // Clear playlist
       ' Winamp.Playlist.Clear()

       ' // Remove missing files in playlist
       ' Winamp.Playlist.RemoveMissingFiles()

       ' // Enable/Disable Shuffle
       ' Winamp.Playback.ShuffleEnabled = True

       ' // Enable/Disable Repeat
       ' Winamp.Playback.RepeatEnabled = True

       ' // Set WinAmp OnTop
       ' Winamp.Options.AlwaysOnTop = True

   End Sub

End Class

#End Region

Un AppActivate más sencillo de usar que el default, se puede usar especificando el nombre del proceso.

PD: Sirve para activar (darle Focus) a un proceso externo.

Código (vbnet) [Seleccionar] Expandir

   #Region " App Activate "
   
   ' [ App Activate ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' App_Activate("cmd")
   ' App_Activate("cmd.exe")
   ' If App_Activate("cmd") Then...

   Private Function App_Activate(ByVal ProcessName As String) As Boolean
       If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
       Dim ProcessArray = Process.GetProcessesByName(ProcessName)
       If ProcessArray.Length = 0 Then
           Return False
       Else
           AppActivate(ProcessArray(0).Id)
           Return True
           End If
   End Function
   
   #End Region

lo que voy a postear iría más bien en Scripting..

Estamos en .NET, no en scripting ...¿No?.

No es mi trabajo decirte esto pero podrías mandar un privado a uno de los moderadores de esta sección para que te resuelva ese tipo de preguntas, en lugar de volver a spamear este post con preguntas que tienen respuestas obvias... poder puedes postearlo si compensas posteando la parte de .NET, creo que NovLucker pensará igual, somos comprensivos (nos da un poco igual que lo hagas xD), ahora, muy correcto no es hacer eso ...tu mismo.

Saludos...

se un poco de VB6.0 pero desconozco si el script vbs, es similar, ,igual o totalmente diferente

Hombre...VB es lenguaje compilado y VBS lenguaje interpretado de scripting, por lo cual es mucho más inferior que VB, VBS es "un trozo" de VB.

http://msdn.microsoft.com/en-us/library/ms970436.aspx

¿Porque sabiendo manejar VB6 quieres hacer esto en VBS?, si es por aprender...vale, pero de lo contrario pienso que es una pérdida de tiempo por lo que acabo de comentar.

quiero ante todo aprender.

Pues aquí tienes todo lo necesario para enviar las pulsaciones del teclado (en VBS, no VB):
http://social.technet.microsoft.com/wiki/contents/articles/5169.vbscript-sendkeys-method.aspx
http://ss64.com/vb/sendkeys.html

Saludos

En una aplicación tengo un textbox donde escribo "X" texto y después añado ese texto a un control, pues bien, después de añadir el texto al control, necesito refrescar el texto del Textbox para que se "raisee" el evento OnTextChanged del textbox, pero esto es imposible hacerlo usando Refresh o Invalidate porque lo que actualizan es el drawing del control, no el texto, la única manera es modificando el texto...

...Así que hice este pequeñísimo procedimiento genérico:

Código (vbnet) [Seleccionar] Expandir

   ' Refresh Textbox Text
   Private Sub Refresh_Textbox_Text(ByVal TextBox As TextBox)
       Dim TempText As String = TextBox.Text
       TextBox.Clear()
       TextBox.Text = TempText
   End Sub

Es muy sencilla, pero a alguien le servirá.

' Aquí otra forma:

Código (vbnet) [Seleccionar] Expandir

   Private Sub textBox1_Invalidated(sender As Object, e As System.Windows.Forms.InvalidateEventArgs) Handles textBox1.Invalidated
       textBox1_TextChanged(sender, New EventArgs())
   End Sub

Saludos.