Menú

Mostrar Mensajes

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ú

Mensajes - seba123neo

#3511
Hola,es muy compleja tu pregunta,hay distintos tipos de graficos,si das un ejemplo de lo que quisieras te podria ayudar concretamente en eso que queres.

saludos.
#3512
hay un monton de lados brache,busca sendmessage en internet y vas a ver..un lado puede ser la pagina del api-guide que te da ejemplos de casi todas las api's de como usarla..o busca "manual api windows" y te aparecen lugares que te explican que son las api's y te van dando ejemplos,etc...despues aprendes solo.

saludos.
#3513
Hola,si me decis para que la queres usar,te puedo explicar,pero asi sin nada,puede usare para millones de cosas esa api,pero basicamente el segundo valor son valores que viene dados por constantes declaradas anteriormente,pero son miles de constantes que se pueden usar,es la mas comun de todas esa api...por eso para que la qeures usar??

saludos.
#3514
Software / Re: formato de archivo no soportado
17 Abril 2008, 02:47 AM
Hola,y que formato estas tratando de grabar??
#3515
Hola,algo asi??

Option Explicit
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "USER32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_LEFTDOWN = &H2

Private Sub Timer1_Timer()
SetCursorPos 50, 800
Call MouseClick(50, 800)
End Sub

Public Sub MouseClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub


ahi te hace click cada 1 segundo en una determinada coordenada de la pantalla..

saludos.
#3516
perdoname pero,es al reves,si lo hubiera sabido,no lo hubiera contestado.. ;)
#3517
no asi no,mira yo para seleccioanr un boton de opcion hago esto:

WebBrowser1.Document.All.Item("radiobutton")(0).Checked = True


casi siempre son matrices de controles,por eso esta puesto el index "0" ,pero si no son matrices se los sacas,y "radiobutton" corresponde al nombre del control...

saludos.
#3518
Hola,¿vos queres programar botones personalizados? o sea,crearte tu propio control de botones,con propiedades etc???para eso create un usercontrol y ahi programas las propiedades,etc...

Cita de: cΔssiΔnі No buscaste bien: http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/1-ocx-para-botones-kewlbuttons.htm

justamente ese ocx,no esta para descargar,pues tiene algo que hace saltar el antivirus...el dueño de la pagina lo dio de baja por las quejas de que contenia algo,tambien yo me queje y despues de ahi lo dio de baja,aunque el autor diga que no contiene nada,lo dio de baja por precaucion..en esa pagina tambien hay un control que hice yo cuando me inicie hace 2 años en esto..digamos que estan en version alfa,porque se pueden corregir muchas cosas y se pueden disminuir mucho el tamaño del ocx...

saludos.
#3519
Cita de: mim0x pero no hago un mundo de esto

¿quien hizo un mundo? :huh: :huh:,yo solamente exprese mi duda de porque podria haber pasado...nada mas..ahora ya entiendo con el link que me dio Semper que no habia visto,pero al no haber incumplido ninguna norma de las que hay enumeradas ,pues por eso me exprese en este post...

Cita de: mim0x Intenta explicar el proximo post correctamente y con propiedad y ya veras como ese no te lo borran

me parece que no entendiste todavia....no fue un post mio que no exprese correctamente ni con "propiedad"...

Cita de: cΔssiΔnі ¿Se imaginan el gran rollo que se armaría si cada uno de los miles de users de este foro se quejaran cada vez que le borran un post?

estoy de acuerdo,se llenaria todo el foro de mensajes,pero la mayoria corresponden a usuarios que incumplieron reglas y preguntaron cosas que no se pueden,o hicieron spam,etc..pero como el mio no habia incumplido nada entonces por eso me exprese en este post...

Cita de: Artikbot Pues eso es que lo posteaste en lugar equivocado y te lo ahn movido

con todo respeto...todavia no entendiste..las dos cuestiones que se tratan aqui..

saludos.
#3520
mediante api's podes sacar la ruta de esa carpeta, independientemente si es de ingles o español..algo asi:

Option Explicit
Private Const CSIDL_PERSONAL As Long = &H5
Const MAX_PATH = 260
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Sub Form_Load()
Dim Path As String
Path = MisDocumentos(CSIDL_PERSONAL)
If Path <> vbNullString Then
MsgBox Path
End If
End Sub

Private Function MisDocumentos(CSIDL As Long) As String
Dim ret As Long
Dim IDL As ITEMIDLIST
Dim Path As String
ret = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If ret = 0 Then
Path$ = Space$(512)
ret = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
MisDocumentos = Left$(Path, InStr(Path, Chr$(0)) - 1)
Exit Function
End If
MisDocumentos = vbNullString
End Function