JoseLongoria

Les comparto esto que lo ocupaba en algun momento y me costó trabajo dar con ello: Las existentes son: ALLUSERSPROFILE APPDATA CI_HOLOS_CLI CLIENTNAME CommonProgramFiles COMPUTERNAME ComSpec FP_NO_HOST_CHECK HOMEDRIVE HOMEPATH include JAVA_HOME lib LOGONSERVER MSDevDir NUMBER_OF_PROCESSORS OS Path PATHEXT PROCESSOR_ARCHITECTURE PROCESSOR_IDENTIFIER PROCESSOR_LEVEL PROCESSOR_REVISION ProgramFiles SESSIONNAME SystemDrive SystemRoot TEMP TMP USERDNSDOMAIN USERDOMAIN USERNAME USERPROFILE windir y la forma de accesarlas es Sub Environ_Vars() ' Get Environmental Variables using VBA ' Get the LOGON SERVER sLOGONSERVER = Environ("LOGONSERVER" ' No of processors using VBA sNUMBER_OF_PROCESSORS = Environ("NUMBER_OF_PROCESSORS" ' Get the Operating System using VBA sOS = Environ("OS" ' Get the USER DOMAIN using VBA sUSERDOMAIN = Environ("USERDOMAIN" ' Get the Windows Directory using VBA swindir = Environ("windir" End Sub

Sí tienen un menú en vb.net y quieren habilitar y deshabilitar menus y submenus es un poco gorrroso, cree esta rutina recursiva que creo que puede ser útil. Sí leen por ejemplo de una tabla los privilegios de usuario (donde tienen guardado el nombre de la opción de menú y un campo de habilita/deshabilita) pues sólo tienen que hacer la llamada a estas rutinas de la siguiente maneracall SetMenuItem(Me.MenuStrip, "mnu_usuario", True)La función barre menús y submenus y actualiza el valor. Lo mejor es crear una clase para estas funciones, pasando de parametro el control menustrip.Aquí van las functions: Private Function prvSetMenuItem(ByRef pMenu As MenuStrip, ByVal pItemName As String, ByVal pEnabled As Boolean) Dim lcToolStripMenuItem As ToolStripMenuItem lcToolStripMenuItem = prvFindToolStripMenuItem(pMenu.Items, pItemName) If lcToolStripMenuItem IsNot Nothing Then lcToolStripMenuItem.Enabled = pEnabled Return True Else Return False End If End Function Private Function prvFindToolStripMenuItem(ByRef pMenu As ToolStripItemCollection, ByVal pItemName As String) As ToolStripMenuItem Dim lbFound As Boolean = False Dim lcToolStripItem As ToolStripMenuItem Dim lcTmpToolStripMenuItem As ToolStripMenuItem lcToolStripItem = pMenu(pItemName) If lcToolStripItem Is Nothing Then Dim i As Integer = 0 While Not lbFound And i < pMenu.Count If pMenu(i).GetType Is GetType(ToolStripMenuItem) Then lcTmpToolStripMenuItem = pMenu(i) lcToolStripItem = prvFindToolStripMenuItem(lcTmpToolStripMenuItem.DropDownItems, pItemName) lbFound = (lcToolStripItem IsNot Nothing) End If i += 1 End While End If Return lcToolStripItem End Function

Tarde Estelas de piel, cubículos de piedras pequeñas, manos de pianista, espigas de fuego, ideas centellantes, arbustos de miedo, ojos de mañana, desfiladeros de espanto. Tan humanamente como es posible. Dos nevados volcanes: repletos de lava y cubiertos de hielo. Siempre vivos, siempre impávidos. Sonrosando la tarde, tengo que acudir a las palabras cuando estoy con tu recuerdo. Palabras, palabras, palabras. Por suerte me dejaste muchas. Seguro recuerdas las tardes de octubre, el aire fresco, la ventana grande, el balcón comunitario e intimo. El arrullo de aquellas palabras dirigidas al ocaso: plenas, satisfechas de su día. El termino de la tarea, el anuncio de la noche. Afable somnolencia. Recorrido venturoso. Crema y soda, dama y almohada, revestimiento y desnudez

Hacer la paz (20080502) ¿Qué es una mujer? Quiero preguntarle al sol Pienso en mujeres y miro árboles que no ceden, Que para no quebrarse se someten al baile del viento Pienso en Andreas, signadas por la luna Eclipsando el sol con un dedo, quieren ser lo que ocultan Siempre que no tengan que serlo, siempre que se crean que lo deciden, que lo quieren Que lo que quieren es descansar y para eso trabajan todos los días y todas las noches. Que lo que quieren es ser amadas y por ello guerrean en frentes semblantes de ellas mismas. ¿Que quieren ver las mujeres? Quieren ver su épico triunfo que sólo será refrendado con su rendición incondicional ¿Que ver quieren sino el único que conocen? La mirada de la madre que ama con amantísima violencia Madre que bien mirada es una niña Por eso rechazan a la niña que son y a la que fueron, y combaten a la que serán. Por esa madre que siendo madre, también era niña negada que negaba a la niña que tenía enfrente. La niña que toda mujer tiene frente -en el frente-, cuando mira un espejo con la velada esperanza de que se le regrese una mirada lúdica, Mirada lúdica que querella con fantasmas lúgubres. Fantasmas lúgubres que penan incomprensión y, por no llorar, encrespan espejos. Espejos encrespados como solitarios espantapájaros descerebrados. Azorados por coyotes. Espantapájaros descerebrados con corazón de paja que va siendo quemada por el sol a pequeñas y persistentes dosis. Corazón de Paja tostada, que se vuelve más dura y ruda, pero también quebrantable y delicada. Paja en la que se pierde la mujer y me pierdo yo con ella, porque también recibí la mirada de una madre. Madre que bien mirada, era una niña. Le pregunto esto al sol y responde cediendo a la noche. Cediendo a la noche es la única forma en que se puede volver a hacer día. Declaro ceder en esta guerra, porque quiero volver a hacer la paz. Para mirarte de otro modo… Para que puedas conceder algo a esa niña que fuiste… Para amarte en apasionadísimas presencias y ausencias… Con el manifiesto goce de una mirada lúdica.