Ya salgan del ChatRoom y vuelvan al foro
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útakeown /f "%PROGRAMFILES%" /R /D S
takeown /f "%PROGRAMFILES(x86)%" /R /D S
Icacls "%PROGRAMFILES%" /Grant "%UserName%":(F) /T
Icacls "%PROGRAMFILES(x86)%" /Grant "%UserName%":(F) /T
Cita de: daniel.r.23 en 5 Marzo 2013, 13:05 PM
Setup was unable to create the directory "C:\Program Files (x86)\Ruby200".
Error 5:Acceso denegado
Paths.exe -add "%ProgramFiles(x86)%\Ruby\Bin"
Paths.exe -clean
C:\Program Files (x86)\Ruby\bin
C:\Ruby200\Bin
Cita de: Bulone en 20 Febrero 2013, 17:27 PMTengo una pregunta, hay alguna forma de incluir en mi consola de ms-dos más comandos que con los que viene por defecto?
Cita de: Bulone en 20 Febrero 2013, 17:27 PMo incluso si hay alguna forma de "programar" o "crear" comandos.Esto me parece una pregunta con una respuesta demasiado obvia, puedes desarrollar una aplicación de consola (CommandLineInterface) con cualquier lenguaje, pero no es tán fácil como dibujar un círculo en el Paint, hay que aprender a usar algún lenguaje y ponerle ganas.
Panel_X
Button_X
Public Class Form1
Dim Selected_TAB As Integer ' El número del botón clickado
Dim Margin_TAB As Integer = 30 ' el margen de espacio que le quiero dar a los botones
Dim Element_Size_Y As Integer ' la altura del panel
Private Sub sub_btn_sel(sender As Object, e As EventArgs) Handles Button_1.Click, Button_2.Click, Button_3.Click, Button_4.Click
Selected_TAB = sender.name.split("_")(1) ' El número del botón clickado
Dim Temp_Margin_TAB As Integer = Margin_TAB
' Estas son las dimensiones de altura de cada panel que quiero expandir/contraer
Select Case Selected_TAB
Case 1
Element_Size_Y = 25
Case 2
Element_Size_Y = 50
Case 3
Element_Size_Y = 80
Case 4
Element_Size_Y = 155
Case Else
End Select
For Each Control In Panela.Controls
If Control.GetType.ToString.Contains("Button") Then
Dim Botoncito As Button = CType(Control, Button)
If Not Botoncito.Name = "Button_" & Selected_TAB Then
Margin_TAB += Temp_Margin_TAB
Botoncito.Location = New Point(Botoncito.Location.X, Element_Size_Y + Margin_TAB)
End If
End If
Next
For Each Control In Panela.Controls
If Control.GetType.ToString.Contains("Panel") Then
Dim Panelito As Panel = CType(Control, Panel)
If Not Panelito.Name = "Panel_" & Selected_TAB Then
Panelito.Visible = False
Else
Panelito.Visible = True
Panelito.Size = New Size(Panelito.Width, Element_Size_Y)
Panelito.Location = New Point(Panelito.Location.X, Temp_Margin_TAB)
End If
End If
Next
End Sub
End Class