Hombre, pero también he descubierto que los controles de terceros por así decirlo..."gratis", por ejemplo los que hay en CodeProject, como el objectlistview, más de uno son buenisímos y no les cuesta nada cargar, claro, solo pesan unos pocos KB en lugar de los muchos MB que pesan los controles DE PAGO, y las muchas más diferencias (que desconozco) que tienen los de pago que los hacen tán pesados.

Ahora encontré un panel degradado gratis, no tarda nada en cargar, está muy bien, aquí lo dejo por si alguien lo necesita

GradientPanel.vb

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Text
Imports System.Windows.Forms
 
Namespace GradientPanel
	Public Partial Class GradientPanel
		Inherits System.Windows.Forms.Panel
 
		' member variables
		Private mStartColor As System.Drawing.Color
		Private mEndColor As System.Drawing.Color
 
		Public Sub New()
			' InitializeComponent()
			PaintGradient()
		End Sub
 
		Protected Overrides Sub OnPaint(pe As PaintEventArgs)
			' TODO: Add custom paint code here
 
			' Calling the base class OnPaint
			MyBase.OnPaint(pe)
		End Sub
 
 
		Public Property PageStartColor() As System.Drawing.Color
			Get
				Return mStartColor
			End Get
			Set
				mStartColor = value
				PaintGradient()
			End Set
		End Property
 
 
		Public Property PageEndColor() As System.Drawing.Color
			Get
				Return mEndColor
			End Get
			Set
				mEndColor = value
				PaintGradient()
			End Set
		End Property
 
 
		Private Sub PaintGradient()
			Dim gradBrush As System.Drawing.Drawing2D.LinearGradientBrush
			gradBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(Me.Width, Me.Height), PageStartColor, PageEndColor)
 
			Dim bmp As New Bitmap(Me.Width, Me.Height)
 
			Dim g As Graphics = Graphics.FromImage(bmp)
			g.FillRectangle(gradBrush, New Rectangle(0, 0, Me.Width, Me.Height))
			Me.BackgroundImage = bmp
			Me.BackgroundImageLayout = ImageLayout.Stretch
		End Sub
 
	End Class
End Namespace

Definitívamente lo que está causando que la APP tarde 10 segundos en cargar son los controles del "DotNetBar", serán controles muy buenos y todo lo que quieras (spiritdead), pero son pesadísimos a la hora de cargar, no creo que valga la pena usarlos para que luego séa incómodo abrir la APP, y eso que solo uso 2 groupboxes y un panel... no me imagino si usase más controles de esa suite.

En otra aplicación que estoy haciendo, nada más cargar la aplicación dibuja +20 botones con 1 imagen en cada botón, 4 picturebox, 1 listview, 1 textbox, el executable está comprimido, además de cargar +250 recursos de texto al inicio, pues no me tarda ni 1,5 segundos en cargarse la APP, claro, porque no he usado krypton ni DotNetBar esta vez.

Un saludo!

Ah, sí, eso ya lo hice Nov!  Convert.ToDouble(NumeroDeGB) \ 4.31

No lo puse en el ejemplo de arriba pero lo hice antes de preguntar y el resultado es el mismo



EDITO:

Necesito una ayuda urgente

Voy a ver si pasando el número a bytes obtengo mejores resultados...

El icono de "70's" y los iconos de las carpetas "2000...2013" y "BSO" los he hecho yo.

Busco el mismo tipo de iconos, que séan de calidad y que los iconos no séan muy distintos, es decir, que sigan un patron de colores.

En cambio los iconos de las decadas (50s, 60s, 80s y 90s) me gustaría que llevasen algún "dibujo" de aquella época, por ejemplo el icono que he hecho de los 70s lleva un fondo muy "Disco" y el arcoiris asociado con esa época.

PD: Sé que es algo dificil, yo no he encontrado más que vectores de pago.
 
un saludo!

Me está volviendo loco este problema!

Estos son los elementos del problema:

• 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.

Es decir... Si el valor de la variable es "4,31" el label debe mostrar un "1", porque es la capacidad de un solo DVD,
Si el valor de la variable es "4,32" entonces el label debe mostrar un "2" porque el tamaño es más de la capacidad de un dvd pero menos de la capacidad de 2 DVD's completos,
Si la variable es "10,0" pues el label debe mostrar "3" porqe el tamaño se encuentra entre la capacidad de 3 DVD's,
etc, etc, etc...

El problema es que el valor del label se suma cada "3,50" GB, en lugar de cada "4,31" GB.

Las matemáticas no es lo mio pero yo creo que la división debería funcionar...

' 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....

O puedes crear un segundo datagridview justo encima del primero, le añades sólamente una columna con el título que quieras, redimensionas el control para que solo se véa dicha columna encima dle primer datagrid y así queda mejor que con un label.

O usa un groupbox o algún otro contenedor que tenga un header y adentro metes el datagridview.

Saludos

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

Saludos

EDITO:

    ' 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

 

Saludos

Gracias, pero no me aclaro, ¿Como puedo adaptarla a mis necesidades?

Tengo una "Search bar" que debe buscar resultados en los archivos de texto de "My.Resources", y mostrar cada resultado encontrado en el listview.
Lo único que quiero es hacer el texto a buscar en modo "Ignorecase" xD




Al pulsar el botón "Buscar":

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)

Find_Delimited_Text sub:

    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

---

EDITO:
Bueno, creo que convirtiendo los dos strings a lowercase da menos vueltas y funciona.

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

Saludos!

¿Alguien me puede recordar como se hacia esto?

Olvidé que método se usa para esto xD

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