Can someone convert this code to VB.Net for me ?

J

Jared

http://www.kamalpatel.net/ConvertCSharp2VB.aspx

Protected ThumbNailSize As Size = New Size(75,75)
Protected ThumbNailName As String = "_thumbnail"

Private Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs)
If RequestObject("generate") = "1" Then
GenerateThumbNailImagesForFolder(RequestObject("imgfolder"))
End If

End Sub



Public Sub GenerateThumbNailImagesForFolder(ByVal FolderName As
String)
Dim sPhysicalPath As String = ""
Dim sFileName As String = ""
Dim sThumbName As String = ""

sPhysicalPath = Server.MapPath(FolderName)

Dim oDir As DirectoryInfo = New DirectoryInfo(sPhysicalPath)

Try

Dim oDeleteFiles() As FileInfo = oDir.GetFiles()

Dim oFile As FileInfo
For Each oFile In oDeleteFiles
sFileName = oFile.Name.ToLower()
If sFileName.IndexOf("thumbnail") > 0 Then
oFile.Delete()
End If
Next

Dim oFiles() As FileInfo = oDir.GetFiles()

Dim oFile As FileInfo
For Each oFile In oFiles

sFileName = oFile.Name.ToLower()

sThumbName = sFileName.Replace(".",Me.ThumbNailName
Dim ".") As +

If sFileName.IndexOf(".gif") > 0 Then

Me.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Gif)
End If
If sFileName.IndexOf(".jpg") > 0 Then

Me.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Jpeg)
End If
If sFileName.IndexOf(".bmp") > 0 Then

Me.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Bmp)
End If

Next
End Try
End Sub

Public Property sPhysicalPath,string() As GenerateThumbNail(string
End Property
sOrgFileName,string Function oFormat)() As sThumbNailFileName,ImageFormat

Try

System.Drawing.Image oImg =
System.Drawing.Image.FromFile(sPhysicalPath + "\" + sOrgFileName)

System.Drawing.Image oThumbNail = New
Bitmap(Me.ThumbNailSize.Width, Me.ThumbNailSize.Height,
oImg.PixelFormat)

Dim oGraphic As Graphics =
Graphics.FromImage(oThumbNail)

oGraphic.CompositingQuality =
CompositingQuality.HighQuality

oGraphic.SmoothingMode = SmoothingMode.HighQuality

oGraphic.InterpolationMode =
InterpolationMode.HighQualityBicubic

Rectangle oRectangle = New Rectangle(0, 0,
Me.ThumbNailSize.Width, Me.ThumbNailSize.Height)

oGraphic.DrawImage(oImg, oRectangle)

oThumbNail.Save(sPhysicalPath + "\" +
sThumbNailFileName,oFormat)

oImg.Dispose()

End Try

End Function

'----------------------------------------------------------------
' Converted from C# to VB .NET using CSharpToVBConverter(1.2).
' Developed by: Kamal Patel (http://www.KamalPatel.net)
'----------------------------------------------------------------

Harry Hudini said:
Hi,

I need to run exactly this code in an asp.net file when someone uploads an
image, but i dont know C# and im having real issues converting it.

If anyone can, could you convert it to VB.net for me to use ? Loads of
karma
in it for you :)


<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Text" %>


<script Language="C#" runat="server">


protected Size ThumbNailSize = new Size(75,75);
protected string ThumbNailName = "_thumbnail";

private void Page_Load(object sender, System.EventArgs e)
{
if (RequestObject("generate") == "1")
{
GenerateThumbNailImagesForFolder(RequestObject("imgfolder"));
}

}



public void GenerateThumbNailImagesForFolder(string FolderName)
{
string sPhysicalPath="";
string sFileName="";
string sThumbName="";

sPhysicalPath = Server.MapPath(FolderName);

DirectoryInfo oDir = new DirectoryInfo(sPhysicalPath);

try
{

FileInfo[] oDeleteFiles = oDir.GetFiles();

foreach (FileInfo oFile in oDeleteFiles)
{
sFileName = oFile.Name.ToLower();
if (sFileName.IndexOf("thumbnail") > 0) {
oFile.Delete(); }
}

FileInfo[] oFiles = oDir.GetFiles();

foreach (FileInfo oFile in oFiles)
{

sFileName = oFile.Name.ToLower();

sThumbName = sFileName.Replace(".",this.ThumbNailName
+ ".");

if (sFileName.IndexOf(".gif") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Gif);
}
if (sFileName.IndexOf(".jpg") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Jpeg);
}
if (sFileName.IndexOf(".bmp") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Bmp);
}

}
}
catch (Exception) { }
}

public void GenerateThumbNail(string sPhysicalPath,string
sOrgFileName,string sThumbNailFileName,ImageFormat oFormat)
{

try
{

System.Drawing.Image oImg =
System.Drawing.Image.FromFile(sPhysicalPath + @"\" + sOrgFileName);

System.Drawing.Image oThumbNail = new
Bitmap(this.ThumbNailSize.Width, this.ThumbNailSize.Height,
oImg.PixelFormat);

Graphics oGraphic = Graphics.FromImage(oThumbNail);

oGraphic.CompositingQuality =
CompositingQuality.HighQuality ;

oGraphic.SmoothingMode = SmoothingMode.HighQuality ;

oGraphic.InterpolationMode =
InterpolationMode.HighQualityBicubic ;

Rectangle oRectangle = new Rectangle(0, 0,
this.ThumbNailSize.Width, this.ThumbNailSize.Height);

oGraphic.DrawImage(oImg, oRectangle);

oThumbNail.Save(sPhysicalPath + @"\" +
sThumbNailFileName,oFormat);

oImg.Dispose();

}
catch (Exception) { }

}


</script>
Click to expand...
 
H

Harry Hudini

Hi,

I need to run exactly this code in an asp.net file when someone uploads an
image, but i dont know C# and im having real issues converting it.

If anyone can, could you convert it to VB.net for me to use ? Loads of karma
in it for you :)


<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Text" %>


<script Language="C#" runat="server">


protected Size ThumbNailSize = new Size(75,75);
protected string ThumbNailName = "_thumbnail";

private void Page_Load(object sender, System.EventArgs e)
{
if (RequestObject("generate") == "1")
{
GenerateThumbNailImagesForFolder(RequestObject("imgfolder"));
}

}



public void GenerateThumbNailImagesForFolder(string FolderName)
{
string sPhysicalPath="";
string sFileName="";
string sThumbName="";

sPhysicalPath = Server.MapPath(FolderName);

DirectoryInfo oDir = new DirectoryInfo(sPhysicalPath);

try
{

FileInfo[] oDeleteFiles = oDir.GetFiles();

foreach (FileInfo oFile in oDeleteFiles)
{
sFileName = oFile.Name.ToLower();
if (sFileName.IndexOf("thumbnail") > 0) {
oFile.Delete(); }
}

FileInfo[] oFiles = oDir.GetFiles();

foreach (FileInfo oFile in oFiles)
{

sFileName = oFile.Name.ToLower();

sThumbName = sFileName.Replace(".",this.ThumbNailName
+ ".");

if (sFileName.IndexOf(".gif") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Gif);
}
if (sFileName.IndexOf(".jpg") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Jpeg);
}
if (sFileName.IndexOf(".bmp") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Bmp);
}

}
}
catch (Exception) { }
}

public void GenerateThumbNail(string sPhysicalPath,string
sOrgFileName,string sThumbNailFileName,ImageFormat oFormat)
{

try
{

System.Drawing.Image oImg =
System.Drawing.Image.FromFile(sPhysicalPath + @"\" + sOrgFileName);

System.Drawing.Image oThumbNail = new
Bitmap(this.ThumbNailSize.Width, this.ThumbNailSize.Height,
oImg.PixelFormat);

Graphics oGraphic = Graphics.FromImage(oThumbNail);

oGraphic.CompositingQuality =
CompositingQuality.HighQuality ;

oGraphic.SmoothingMode = SmoothingMode.HighQuality ;

oGraphic.InterpolationMode =
InterpolationMode.HighQualityBicubic ;

Rectangle oRectangle = new Rectangle(0, 0,
this.ThumbNailSize.Width, this.ThumbNailSize.Height);

oGraphic.DrawImage(oImg, oRectangle);

oThumbNail.Save(sPhysicalPath + @"\" +
sThumbNailFileName,oFormat);

oImg.Dispose();

}
catch (Exception) { }

}


</script>
 
T

TJS

http://authors.aspalliance.com/aldotnet/examples/translate.aspx




Harry Hudini said:
Hi,

I need to run exactly this code in an asp.net file when someone uploads an
image, but i dont know C# and im having real issues converting it.

If anyone can, could you convert it to VB.net for me to use ? Loads of karma
in it for you :)


<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Text" %>


<script Language="C#" runat="server">


protected Size ThumbNailSize = new Size(75,75);
protected string ThumbNailName = "_thumbnail";

private void Page_Load(object sender, System.EventArgs e)
{
if (RequestObject("generate") == "1")
{
GenerateThumbNailImagesForFolder(RequestObject("imgfolder"));
}

}



public void GenerateThumbNailImagesForFolder(string FolderName)
{
string sPhysicalPath="";
string sFileName="";
string sThumbName="";

sPhysicalPath = Server.MapPath(FolderName);

DirectoryInfo oDir = new DirectoryInfo(sPhysicalPath);

try
{

FileInfo[] oDeleteFiles = oDir.GetFiles();

foreach (FileInfo oFile in oDeleteFiles)
{
sFileName = oFile.Name.ToLower();
if (sFileName.IndexOf("thumbnail") > 0) {
oFile.Delete(); }
}

FileInfo[] oFiles = oDir.GetFiles();

foreach (FileInfo oFile in oFiles)
{

sFileName = oFile.Name.ToLower();

sThumbName = sFileName.Replace(".",this.ThumbNailName
+ ".");

if (sFileName.IndexOf(".gif") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Gif);
}
if (sFileName.IndexOf(".jpg") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Jpeg);
}
if (sFileName.IndexOf(".bmp") > 0)
{

this.GenerateThumbNail(sPhysicalPath,sFileName,sThumbName,ImageFormat.Bmp);
}

}
}
catch (Exception) { }
}

public void GenerateThumbNail(string sPhysicalPath,string
sOrgFileName,string sThumbNailFileName,ImageFormat oFormat)
{

try
{

System.Drawing.Image oImg =
System.Drawing.Image.FromFile(sPhysicalPath + @"\" + sOrgFileName);

System.Drawing.Image oThumbNail = new
Bitmap(this.ThumbNailSize.Width, this.ThumbNailSize.Height,
oImg.PixelFormat);

Graphics oGraphic = Graphics.FromImage(oThumbNail);

oGraphic.CompositingQuality =
CompositingQuality.HighQuality ;

oGraphic.SmoothingMode = SmoothingMode.HighQuality ;

oGraphic.InterpolationMode =
InterpolationMode.HighQualityBicubic ;

Rectangle oRectangle = new Rectangle(0, 0,
this.ThumbNailSize.Width, this.ThumbNailSize.Height);

oGraphic.DrawImage(oImg, oRectangle);

oThumbNail.Save(sPhysicalPath + @"\" +
sThumbNailFileName,oFormat);

oImg.Dispose();

}
catch (Exception) { }

}


</script>
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Looking for someone to take alook at this code and help 2
I have to finish this code for my assignment but I cant figure out how to solve it 1
Anybody can translate this for me? 1
Can someone help me with an ASP.NET page 8
Please someone me with this - Dll error 1
Can someone help me get this sub to exit correctly? 1
Can someone please explain to me this code? 3
can someone check the code for me. 3

Members online

No members online now.
Total: 36 (members: 0, guests: 36)
Robots: 328

Forum statistics

Threads
473,755
Messages
2,569,536
Members
45,011
Latest member
AjaUqq1950

Latest Threads

Top