• Un número de GigaBytes, que es una variable de tipo Double.
• Un label que debe mostrar una cantidad según la cantidad de GB, por cada 4,31 GB debe subir un número de valor al label.

' El valor de "Label_SIZE.Text.Split(" ")(0))" por ejemplo es: 3,50
' (CON COMA, NO PUNTO)
 
If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.31

' En cambio esto SI me funciona:
' El valor del label se suma cada "4,5"
 
If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.50
 
' No entiendoooooooo porque el otro no funciona....

FileSystem.SetAttr("Archivo", IO.FileAttributes.System + IO.FileAttributes.Hidden)

    ' Usage:
    ' Attrib("File.txt", IO.FileAttributes.ReadOnly + IO.FileAttributes.System)
 
    Private Function Attrib(ByVal File As String, ByVal Attributes As System.IO.FileAttributes)
        Try
            FileSystem.SetAttr(File, Attributes)
            Return True
        Catch
            Return Nothing
        End Try
    End Function

@Echo OFF
 
:: By Elektro H@cker
 
Set "TempFile=%SystemDrive%\FileCount.tmp"
 
If NOT Exist "%TempFile%" (fsutil file createnew "%TempFile%" 0 1>NUL)
 
For /F "usebackq" %%X in ("%TempFile%") Do (Set /A Last_Total_Files=%%X)
 
FOR %%@ IN (*.*) DO (Set /A TotalFiles+=1)
 
If NOT defined Last_Total_Files (Set /A Last_Total_Files=0)
 
Set /A NewFiles=TotalFiles-Last_Total_Files
 
<Nul Set /P Total=%TotalFiles% >"%TempFile%"
 
Echo Archivos antes: %Last_Total_Files%
Echo Archivos ahora: %TotalFiles%
Echo Nuevos archivos: %NewFiles%
 
Pause&Exit

For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
            If TypeOf (Dict.Value) Is String Then
                Find_Delimited_Text(My.Resources.ResourceManager.GetObject(Dict.Key), ";", TextBox_Buscar.Text)

    Public Sub Find_Delimited_Text(ByVal TextFile As String, ByVal TextDelimiter As String, ByVal PatternSTR As String)
 
        Dim vLetras As String = PatternSTR
        Dim vSize As Integer = PatternSTR.Length  ' ¿?
 
        Dim vLista As IEnumerable(Of String) = vLetras.Select(Function(x) x.ToString())
 
        For i As Integer = 0 To vSize - 2
            vLista = vLista.SelectMany(Function(x) vLetras, Function(x, y) x + y)
        Next
 
        For Each t As String In vLista
            MsgBox(t)
        Next
 
        Dim Listview_Row_STR(4) As String
        Dim Listview_Item = New ListViewItem(Listview_Row_STR)
        Dim TextDelimited As String()
        Dim delimiter As String = TextDelimiter
        Dim fileContent As String = TextFile
 
        Dim stringStream As New System.IO.StringReader(fileContent)
        Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser(stringStream)
            parser.SetDelimiters(TextDelimiter)
            While Not parser.EndOfData
                TextDelimited = parser.ReadFields()
                If TextDelimited(0).Contains(PatternSTR) Then
                    field_find_number += 1
                    Listview_Row_STR(0) = field_find_number
                    Listview_Row_STR(1) = TextDelimited(0)
                    Listview_Row_STR(2) = TextDelimited(1)
                    Listview_Row_STR(3) = TextDelimited(2)
                    Listview_Item = New ListViewItem(Listview_Row_STR)
                    ListView.Items.Add(Listview_Item)
                End If
            End While
        End Using
    End Sub

 If TextDelimited(0).ToLower.Contains(PatternSTR.ToLower) Then

Dim STR = "abc"
If Cosa.Contains(STR) Then ...
 
' Quiero que busque todas las variantes:
' Abc
' ABc
' ABC
' aBC
' abC
' etc...

Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
            For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
                If TypeOf (Dict.Value) Is Drawing.Image Then
                    Debug.WriteLine(Dict.Key) 'outputting resource name
                End If
            Next

@echo off
Title Configuración de IP
 
:: By Elektro H@cker
 
:Menu
Echo Configuraci¢n de IP:       
Echo -------------------        | MORE
Echo: 1 ^> Segmento [192.168.1.X]
Echo: 2 ^> Segmento [192.168.2.X]
Echo: 3 ^> Segmento [192.168.3.X]
Echo: 4 ^> Segmento [192.168.4.X]
Echo: 5 ^> Salir
Echo.                           | MORE
 
choice /C 12345 /M "elige una opci¢n"
 
For %%# in (%ERRORLEVEL%) DO (
	If %%# EQU 1 (Set "Segmento=192.168.1.")
	If %%# EQU 2 (Set "Segmento=192.168.2.")
	If %%# EQU 3 (Set "Segmento=192.168.3.")
	If %%# EQU 4 (Set "Segmento=192.168.4.")
	If %%# EQU 5 (Exit /B 0)
	Call :Set_Digitos
	Call :Set_IP
)
GOTO :MENU
 
:Set_Digitos
CLS
Echo Segmento elegijo [%Segmento%XXX] | MORE
Set /P "Ultimo=Escriba el ultimo bloque de digitos >>"
If "%Ultimo%" EQU "" (GOTO :Set_Digitos)
Echo "%Ultimo%"|Findstr "^\"[0-9]*\"$" && GOTO:EOF || (GOTO :Set_Digitos)
 
:Set_IP
Echo Configurando IP [%Segmento%%ultimo%] | MORE
netsh interface ip set address name="Conexi¢n de  rea local" static %Segmento%%ultimo% 255.255.255.0 %Segmento%1
netsh interface ip set dns name="Conexi¢n de  rea local" static 8.8.8.8
netsh interface ip add dns name="Conexi¢n de  rea local" 8.8.4.4 index=2
GOTO:EOF

 vColumnaOrden
    vOrden

  Private Sub GListView_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles GListView.ColumnClick
 
        Dim vIndiceColumna As ColumnHeader = GListView.Columns(e.Column)
 
        Dim vTipoOrden As System.Windows.Forms.SortOrder
 
        If vColumnaOrden Is Nothing Then
            vTipoOrden = SortOrder.Ascending
            vOrden = SortOrder.Ascending
        Else
            If vIndiceColumna.Equals(vColumnaOrden) Then
                If vOrden = SortOrder.Ascending Then
                    vTipoOrden = SortOrder.Descending
                    vOrden = SortOrder.Descending
                Else
                    vTipoOrden = SortOrder.Ascending
                    vOrden = SortOrder.Ascending
                End If
            Else
                vTipoOrden = SortOrder.Ascending
                vOrden = SortOrder.Ascending
            End If
        End If
 
        vColumnaOrden = vIndiceColumna
 
        GListView.ListViewItemSorter = New COrdenarListview(e.Column, vTipoOrden)
        GListView.Sort()
    End Sub

 
' En las declaraciones...
Dim ColumnOrder As String = "Down"
 
 
Private Sub GListView_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles GListView.ColumnClick
        If ColumnOrder = "Down" Then
            Me.GListView.ListViewItemSorter = New COrdenarListview(e.Column, SortOrder.Ascending)
            GListView.Sort()
            ColumnOrder = "Up"
        ElseIf ColumnOrder = "Up" Then
            Me.GListView.ListViewItemSorter = New COrdenarListview(e.Column, SortOrder.Descending)
            GListView.Sort()
            ColumnOrder = "Down"
        End If
    End Sub