sino desde configuracion de publicacion
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ú//MovieClip con Nombre de instancia: boton
boton.onPress = function(){
getURL("http://www.google.com", "_blank");
};
//MovieClip con Nombre de instancia: boton
boton.addEventListener (MouseEvent.CLICK, onMouseCLICK);
function onMouseCLICK(event:MouseEvent):void {
var request:URLRequest = new URLRequest("http://www.google.com");
navigateToURL(request, "_blank");
};
Private Sub Form_Load()
Dim Vacio As String
Vacio = Dir("C:\Informacion\CarpetaDatos\*.*")
If Vacio = "" Then
MsgBox "no existe ningun archivo en esa carpeta"
End If
End Sub
Citarsolo me falta sabe como poder incluir otro tipo de imagenes ademas de .bmp
Private Sub Command1_Click()
Dim Filter As String, Sfile As String
Filter = "Archivos de Imagenes" & Chr(0) & "*.bmp;*.jpg;*.gif;*.wmf"
Sfile = OpenDialog(Me, Filter, "Seleccione un archivo", App.Path)
If Sfile <> "" Then MsgBox Sfile
End Sub
Citaro como hacer la conversion de jpg o otros a bmp sin tener q incluir un picturebox
Private Sub Command1_Click()'poner una imagen en el clipBoard
Dim Img As Picture
Clipboard.clear
Set Img = LoadPicture("C:\archivo.bmp")
Clipboard.SetData Img
End Sub
Private Sub Command2_Click()'guardar la imagen del clipboard
SavePicture Clipboard.GetData(vbCFBitmap), "C:\archivo2.bmp"
End Sub