Convertir texto en Imagen en (C# Y VB.Net)

En C#

         //CREAMOS EL OBJETO IMAGEN

         Bitmap objBmp = new Bitmap(1, 1);

         int Width = 0;

         int Height = 0;

         //LE DAMOS EL FORMATO DE LA FUENTE

         Font objFont = new Font("Arial", 20, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel);

         Graphics objGraphics = Graphics.FromImage(objBmp);

         Width = (int)objGraphics.MeasureString(textBox1.Text, objFont).Width;

         Height = (int)objGraphics.MeasureString(textBox1.Text, objFont).Height;

         objBmp = new Bitmap(objBmp, new Size(Width, Height));

         objGraphics = Graphics.FromImage(objBmp);

         objGraphics.SmoothingMode = SmoothingMode.AntiAlias;

         objGraphics.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality;

         objGraphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High;

         objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias;

         objGraphics.DrawString(textBox1.Text, objFont, new SolidBrush(Color.FromArgb(102, 102, 102)), 0, 0);

         objGraphics.Flush();

         pictureBox1.Image = objBmp;

En VB.NET
 

      'CREAMOS EL OBJETO IMAGEN

      Dim objBmp As New Bitmap(1, 1)

      Dim Width As Integer = 0

      Dim Height As Integer = 0

      'LE DAMOS EL FORMATO DE LA FUENTE

      Dim objFont As New Font("Arial", 20, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)

      Dim objGraphics As Graphics = Graphics.FromImage(objBmp)

      Width = CInt(objGraphics.MeasureString(textBox1.Text, objFont).Width)

      Height = CInt(objGraphics.MeasureString(textBox1.Text, objFont).Height)

      objBmp = New Bitmap(objBmp, New Size(Width, Height))

      objGraphics = Graphics.FromImage(objBmp)

      objGraphics.SmoothingMode = SmoothingMode.AntiAlias

      objGraphics.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality

      objGraphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High

      objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias

      objGraphics.DrawString(textBox1.Text, objFont, New SolidBrush(Color.FromArgb(102, 102, 102)), 0, 0)

      objGraphics.Flush()

      pictureBox1.Image = objBmp

Descargar ejemplo ConvertirTextoImagen.rar

Abrir puertos de SQL SERVER en Windows Server con el Firewall de Windows Activado

Abrir puertos de SQL SERVER en Windows Server con el Firewall de Windows Activado:

1).-Crear un archivo en blanco con extensión .bat
2).-Agregar el sgte codigo al archivo en blanco

@echo ========= SQL Server Ports ===================
@echo Enabling SQLServer default instance port 1433
netsh firewall set portopening TCP 1433 "SQLServer"
@echo Enabling Dedicated Admin Connection port 1434
netsh firewall set portopening TCP 1434 "SQL Admin Connection"
@echo Enabling conventional SQL Server Service Broker port 4022
netsh firewall set portopening TCP 4022 "SQL Service Broker"
@echo Enabling Transact-SQL Debugger/RPC port 135
netsh firewall set portopening TCP 135 "SQL Debugger/RPC"
@echo ========= Analysis Services Ports ==============
@echo Enabling SSAS Default Instance port 2383
netsh firewall set portopening TCP 2383 "Analysis Services"
@echo Enabling SQL Server Browser Service port 2382
netsh firewall set portopening TCP 2382 "SQL Browser"
@echo ========= Misc Applications ==============
@echo Enabling HTTP port 80
netsh firewall set portopening TCP 80 "HTTP"
@echo Enabling SSL port 443
netsh firewall set portopening TCP 443 "SSL"
@echo Enabling port for SQL Server Browser Service's 'Browse' Button
netsh firewall set portopening UDP 1434 "SQL Browser"
@echo Allowing multicast broadcast response on UDP (Browser Service Enumerations OK)
netsh firewall set multicastbroadcastresponse ENABLE

3).-Llarmar al archivo desde command de windows y correrlo.
4).-Probar si se conecta al sql server desde una pc cliente