''' <summary>
        ''' Compress an image to the specified target filesize.
        ''' </summary>
        ''' <param name="inputFile">The input image file.</param>
        ''' <param name="targettFile">The target image file.</param>
        ''' <param name="targetImageFormat">The target image format.</param>
        ''' <param name="targetFileSize">The target filesize, in bytes.</param>
        ''' <exception cref="System.NotImplementedException">Resize Image to -1% and reset quality compression...</exception>
        Private Sub CompressImage(ByVal inputFile As String,
                                  ByVal targettFile As String,
                                  ByVal targetImageFormat As ImageFormat,
                                  ByVal targetFileSize As Long)
 
            Dim qualityPercent As Integer = 100
            Dim bmp As New Bitmap(inputFile)
            Dim codecInfo As ImageCodecInfo = (From codec As ImageCodecInfo In ImageCodecInfo.GetImageDecoders
                                               Where codec.FormatID = targetImageFormat.Guid).First
            Dim encoder As Imaging.Encoder = Imaging.Encoder.Quality
            Dim encoderParameters As New EncoderParameters(1)
 
            Using encoderParameter As New EncoderParameter(encoder, qualityPercent)
                encoderParameters.Param(0) = encoderParameter
                bmp.Save(targettFile, codecInfo, encoderParameters)
            End Using
 
            Dim fInfo As New FileInfo(targettFile)
 
            Do Until fInfo.Length <= targetFileSize
 
                qualityPercent -= 1
 
                If qualityPercent = 50 Then ' Esto lo pongo de manera opcional.
                    Throw New NotImplementedException("Resize Image to -1% and reset quality compression...")
                End If
 
               ' If qualityPercent = 60 Then
               '     resizePercent -= 1
               '     bmp = ImageTools.ResizeImage(bmp, resizePercent)
               '     qualityPercent = 99
               ' End If
 
                Using encoderParameter As New EncoderParameter(encoder, qualityPercent)
                    encoderParameters.Param(0) = encoderParameter
                    bmp.Save(targettFile, codecInfo, encoderParameters)
                End Using
                fInfo = New FileInfo(targettFile)
 
            Loop
 
            encoderParameters.Dispose()
            bmp.Dispose()
 
        End Sub

        ''' <summary>
        ''' Resizes an image by a percentage.
        ''' </summary>
        ''' <param name="Bitmap">Indicates the image to resize.</param>
        ''' <param name="Percent">Indicates the percent size.</param>
        ''' <returns>Bitmap.</returns>
        Public Function ResizeImage(ByVal bitmap As Drawing.Bitmap,
                                    ByVal percent As Double,
                                    Optional ByVal quality As Drawing2D.InterpolationMode =
                                                              Drawing2D.InterpolationMode.HighQualityBicubic,
                                    Optional ByVal pixelFormat As Imaging.PixelFormat =
                                                                  Imaging.PixelFormat.Format24bppRgb) As Drawing.Bitmap
 
            Dim width As Integer = (bitmap.Width \ (100I / percent))
            Dim height As Integer = (bitmap.Height \ (100I / percent))
 
            Dim newBitmap As New Bitmap(width, height, pixelFormat)
 
            Using g As Graphics = Graphics.FromImage(newBitmap)
                g.InterpolationMode = quality
                g.DrawImage(bitmap, 0, 0, width, height)
            End Using
 
            Return newBitmap
 
        End Function

HostsMan



By Elektro

• Añadir, Elminar, o Editar mapeos.
• Bloquear, o Desbloquear mapeos.
• Soporte para usar comentarios en los mapeos.
• Buscar mapeos según el criterio de búsqueda.

• Copiar directamente al portapapeles, o navegar al host.

• Otras funcionalidades básicas.

 

 

 

 

PUSHD "%SystemDrive%"
MKDIR ".\Directorio"

    ''' <summary>
    ''' Implements a kind of Question/Answer KeyValuePair. 
    ''' This class cannot be inherited.
    ''' </summary>
    Public NotInheritable Class QA
 
        ''' <summary>
        ''' Gets the question.
        ''' </summary>
        ''' <value>The question.</value>
        ReadOnly Property Question As String
            Get
                Return Me.mQuestion
            End Get
        End Property
        Private mQuestion As String
 
        ''' <summary>
        ''' Gets the answer.
        ''' </summary>
        ''' <value>The answer.</value>
        ReadOnly Property Answer As String
            Get
                Return Me.mAnswer
            End Get
        End Property
        Private mAnswer As String
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="QA"/> class.
        ''' </summary>
        ''' <param name="question">The question.</param>
        ''' <param name="answer">The answer.</param>
        ''' <exception cref="System.ArgumentNullException">
        ''' question;value cannot be empty.
        ''' or
        ''' answer;value cannot be empty.
        ''' </exception>
        Public Sub New(ByVal question As String, ByVal answer As String)
 
            If String.IsNullOrEmpty(question) Then
                Throw New ArgumentNullException("question", "value cannot be empty.")
 
            ElseIf String.IsNullOrEmpty(answer) Then
                Throw New ArgumentNullException("answer", "value cannot be empty.")
 
            Else
                Me.mQuestion = question
                Me.mAnswer = answer
 
            End If
 
        End Sub
 
        ''' <summary>
        ''' Prevents a default instance of the <see cref="QA"/> class from being created.
        ''' </summary>
        Private Sub New()
        End Sub
 
    End Class

Public Class TestForm
 
    ''' <summary>
    ''' The Question/Answer list.
    ''' </summary>
    Public ReadOnly QAlist As New List(Of QA) From {
        New QA(question:="pregunta1", answer:="7"),
        New QA(question:="pregunta2", answer:="9"),
        New QA(question:="pregunta3", answer:="5")
    }
 
    ''' <summary>
    ''' Handles the Load event of the TestForm form.
    ''' </summary>
    Private Sub TestForm_Load(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Load
 
        ' Add the questions into Listbox.
        Me.ListBox1.Items.AddRange((From qa As QA In QAlist Select qa.Question).ToArray)
 
    End Sub
 
    ''' <summary>
    ''' Handles the SelectedIndexChanged event of the ListBox1 control.
    ''' </summary>
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles ListBox1.SelectedIndexChanged
 
        Dim lb As ListBox = DirectCast(sender, ListBox)
        If Not lb.SelectionMode = SelectionMode.One Then
            Throw New NotImplementedException("SelectionMode is not implemented.")
        End If
 
        Dim qa As QA = QAlist.Find(Function(x As QA) x.Question.Equals(lb.SelectedItem.ToString))
 
        Debug.WriteLine(String.Format("Q: {0}", qa.Question))
        Debug.WriteLine(String.Format("A: {0}", qa.Answer))
        Debug.WriteLine(String.Empty)
 
    End Sub
 
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
 
/// <summary>
/// Implements a kind of Question/Answer KeyValuePair. 
/// This class cannot be inherited.
/// </summary>
public sealed class QA
{
 
	/// <summary>
	/// Gets the question.
	/// </summary>
	/// <value>The question.</value>
	public string Question {
		get { return this.mQuestion; }
	}
	private string mQuestion;
 
	/// <summary>
	/// Gets the answer.
	/// </summary>
	/// <value>The answer.</value>
	public string Answer {
		get { return this.mAnswer; }
	}
	private string mAnswer;
 
	/// <summary>
	/// Initializes a new instance of the <see cref="QA"/> class.
	/// </summary>
	/// <param name="question">The question.</param>
	/// <param name="answer">The answer.</param>
	/// <exception cref="System.ArgumentNullException">
	/// question;value cannot be empty.
	/// or
	/// answer;value cannot be empty.
	/// </exception>
	public QA(string question, string answer)
	{
		if (string.IsNullOrEmpty(question)) {
			throw new ArgumentNullException("question", "value cannot be empty.");
 
		} else if (string.IsNullOrEmpty(answer)) {
			throw new ArgumentNullException("answer", "value cannot be empty.");
 
		} else {
			this.mQuestion = question;
			this.mAnswer = answer;
 
		}
 
	}
 
	/// <summary>
	/// Prevents a default instance of the <see cref="QA"/> class from being created.
	/// </summary>
	private QA()
	{
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
 
public class TestForm
{
 
	/// <summary>
	/// The Question/Answer list.
	/// </summary>
	public readonly List<QA> QAlist = new List<QA> {
		new QA(question: "pregunta1", answer: "7"),
		new QA(question: "pregunta2", answer: "9"),
		new QA(question: "pregunta3", answer: "5")
 
	};
 
	/// <summary>
	/// Handles the Load event of the TestForm form.
	/// </summary>
	private void TestForm_Load(object sender, EventArgs e)
	{
		// Add the questions into Listbox.
		this.ListBox1.Items.AddRange((from qa in QAlistqa.Question).ToArray);
 
	}
 
	/// <summary>
	/// Handles the SelectedIndexChanged event of the ListBox1 control.
	/// </summary>
	private void ListBox1_SelectedIndexChanged(object sender, EventArgs e)
	{
		ListBox lb = (ListBox)sender;
		if (!(lb.SelectionMode == SelectionMode.One)) {
			throw new NotImplementedException("SelectionMode is not implemented.");
		}
 
		QA qa = QAlist.Find((QA x) => x.Question.Equals(lb.SelectedItem.ToString));
 
		Debug.WriteLine(string.Format("Q: {0}", qa.Question));
		Debug.WriteLine(string.Format("A: {0}", qa.Answer));
		Debug.WriteLine(string.Empty);
 
	}
	public TestForm()
	{
		Load += TestForm_Load;
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

Q: pregunta1
A: 7

Q: pregunta2
A: 9

Q: pregunta3
A: 5