By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,569 Members | 1,386 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,569 IT Pros & Developers. It's quick & easy.

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

P: n/a
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("im gfolder"));
}

}

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,sTh umbName,ImageFormat.Gif);
}
if (sFileName.IndexOf(".jpg") > 0)
{

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

this.GenerateThumbNail(sPhysicalPath,sFileName,sTh umbName,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>
Nov 18 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
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("im gfolder"))
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,sThum bName,ImageFormat.Gif)
End If
If sFileName.IndexOf(".jpg") > 0 Then

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

Me.GenerateThumbNail(sPhysicalPath,sFileName,sThum bName,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" <harry.hudini@no****@simplicity.co.uk> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...
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("im gfolder"));
}

}

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,sTh umbName,ImageFormat.Gif);
}
if (sFileName.IndexOf(".jpg") > 0)
{

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

this.GenerateThumbNail(sPhysicalPath,sFileName,sTh umbName,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>

Nov 18 '05 #2

P: n/a
TJS
http://authors.aspalliance.com/aldot...translate.aspx


"Harry Hudini" <harry.hudini@no****@simplicity.co.uk> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...
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("im gfolder"));
}

}

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,sTh umbName,ImageFormat.Gif); }
if (sFileName.IndexOf(".jpg") > 0)
{

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

this.GenerateThumbNail(sPhysicalPath,sFileName,sTh umbName,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>

Nov 18 '05 #3

P: n/a
there is tool which can helpe you.
http://www.e-iceblue.com
Nov 18 '05 #4

P: n/a
TJS
wrong way ..

the guy was asking for c# to vb
not

vb to c#

"Jerry Chen" <Je*******@discussions.microsoft.com> wrote in message
news:F1**********************************@microsof t.com...
there is tool which can helpe you.
http://www.e-iceblue.com

Nov 18 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.