Temas

como hago para inmovilizar el form, esto quiero hacer parar cuando lo doy un clic en la ventana, no lo arrastre, parar que no lo moviera...

un api? un ayuda? algo...?


grax

quisiera saber si a travez de un boton puedo explorar el cd rom, sea la letra que sea aunque sea la "Z"...?


gracias

quisiera saber como puedo cerrar el visor de imagenes si esta abierta, una cosa con if ... then (cerra eso que me estorve),

una cosa asi, o que api se usa para cerrar, alguna ayuda


nos vemos


adioX

ya se como abrir una url
pero yo me acuerdo que hay una forma sensilla sin la necesidad de una api, me pueden ayudar a saber cual era???

como hago para ejecutar un archivo .jpg
o
como hago para ejecutar un archivo .jpg que esta en cualquier carpeta, sin importar el nombre del archivo, y si no se puede con un nombre tambien, con los .exe se puede,pero con .jpg no pude


gracias

sacado de un foro de visual, el cual no se cual era


Este código lo que hace es una que se despliegue una ventanita notificadora sobre el reloj estilo Msn Messenger o Norton Antivirus entre otros,  no importa donde se encuentre la barra de herramientas, si en la parte superior o al costado, la ventana siempre aparece junto al reloj.



Agregar un modulo1, dos formularios (Form1 y Form2) y dentro del Form1 dos CommandButton(command1 y Command2)



En el modulo:



Option Explicit

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Const HWND_TOPMOST = -1

Const SWP_NOMOVE = &H2

Const SWP_NOSIZE = &H1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type





Public Sub SlideForm(FRM As Form, Direccion As Long)

Dim Posicion As Integer

Dim Tamaño As Integer

Dim hwnd As Long

Dim res As Long

Dim buffRECT As RECT



hwnd& = FindWindow("Shell_TrayWnd", "")

If hwnd > 0 Then

res = GetWindowRect(hwnd, buffRECT)

If res > 0 Then

Tamaño = CStr(buffRECT.Bottom - buffRECT.Top) * 15

If buffRECT.Left <= 0 And buffRECT.Top > 0 Then Posicion = 1

If buffRECT.Left > 0 And buffRECT.Top <= 0 Then Posicion = 2: Tamaño = (buffRECT.Right - buffRECT.Left) * 15

If buffRECT.Left <= 0 And buffRECT.Top <= 0 And buffRECT.Right < 600 Then Posicion = 3: Tamaño = buffRECT.Right * 15

If buffRECT.Left <= 0 And buffRECT.Top <= 0 And buffRECT.Right > 600 Then Posicion = 4

End If

Else

Posicion = 1

End If

res = SetWindowPos(FRM.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)



If Direccion = 0 Then

FRM.Show

FRM.Height = 0

Select Case Posicion

Case 1

FRM.Move Screen.Width - FRM.Width, Screen.Height - FRM.Height - Tamaño

Case 2

FRM.Move Screen.Width - FRM.Width - Tamaño, Screen.Height - FRM.Height

Case 3

FRM.Move Tamaño, Screen.Height - FRM.Height

Case 4

FRM.Move Screen.Width - FRM.Width, Tamaño

End Select



Do Until FRM.Height = 3000 ' la altura que se quiera

DoEvents

FRM.Height = FRM.Height + 1

If Not Posicion = 4 Then FRM.Top = FRM.Top - 1

Loop

Else

Do Until FRM.Height = 520

DoEvents

FRM.Height = FRM.Height - 1

If Not Posicion = 4 Then FRM.Top = FRM.Top + 1

Loop

Unload FRM

End If

End Sub





Y en el Form1:

'para desplegar

Private Sub Command1_Click()

SlideForm Form2, 0

End Sub



'para ocultarla

Private Sub Command2_Click()

SlideForm Form2, 1

End Sub



'en fin , funciona bien
'sacado de www.canalvisualbasic.net




                         

alguien sabe como redireccionar  la IP de una un host remoto a un label, una ayuda cualquier cosa, todo obviamente entrando con el netstat...

graciasssssssss 

como se podria hacer para mostrar una tres imagenes  con un timer pero en diferentes intervalos. lo puedo hacer con una imagen pero no se hacer que las otras dos aparescan sin causar conflictos con la primera ya que en momentos se superponen. este es mi code para ocultar y desocultar una imagen

Private Sub Timer1_Timer()

If Image1.Visible = False Then
Image1.Visible = True

ElseIf Image1.Visible = True Then
Image1.Visible = False


Refresh

End If

pero como pongo mas sin que causen conflictos???


gracias¡¡¡¡

eso... queria saber si se puede hacer un link para entrar a mi casilla

quisiera saber como hago para que mi boton "Copiar" copie lo que este dentro del textBox, se lo que sea, y cuando le de al boton copiar, pueda pegarlo en el block de notas o en el word o donde quiera


gracias


jocker

tengo una duda. recien me esoy metiendo en en VB y la pregunta es.¿como puedo hacer para que el texto escrito en un textbox sea escrito en un archivo .TXT y que al mismo tiempo este ubicado en el directrio raiz,por ej: C:, agradeceria mucho alguna respuesta o pista, o algo...