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.
saludos.
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ú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
WebBrowser1.Document.All.Item("radiobutton")(0).Checked = True
Cita de: cΔssiΔnі No buscaste bien: http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/1-ocx-para-botones-kewlbuttons.htm
Cita de: mim0x pero no hago un mundo de esto
Cita de: mim0x Intenta explicar el proximo post correctamente y con propiedad y ya veras como ese no te lo borran
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?
Cita de: Artikbot Pues eso es que lo posteaste en lugar equivocado y te lo ahn movido
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