2014-06-13 1 views
0

나는 다음과 같은 코드를변환 이미지 VB.net

Public Sub ConvertImage(ByVal Filename As String, _ 
ByVal DesiredFormat As System.Drawing.Imaging.ImageFormat, _ 
ByVal NewFilename As String) 
     ' Takes a filename and saves the file in a new format 
     Try 
      Dim imgFile As System.Drawing.Image = _ 
       System.Drawing.Image.FromFile(Filename) 
      imgFile.Save(NewFilename, DesiredFormat) 
     Catch ex As Exception 
      Throw ex 
     End Try 
    End Sub 

    Private Sub btnPrintVC40_Click(sender As System.Object, e As System.EventArgs) Handles btnPrintVC40.Click 
     Dim SigName As String 
     Dim SigNameNew As String 
     SigName = "SELECT Signature FROM vw_Report_VehicleCheckFTA WHERE VCID = " & CStr(lRiskAssessID) 
     SigNameNew = SigName.PadLeft(SigName.Length - 4) 
     ConvertImage(SigName, _ 
        System.Drawing.Imaging.ImageFormat.Jpeg, _ 
        SigNameNew & ".jpeg") 
     runReport("SELECT * FROM vw_Report_VehicleCheckFTA WHERE VCID = " & CStr(lRiskAssessID), "FTAVehicleCheck2.rpt") 
    End Sub 

이 기본적으로이 무엇을해야 다음 Crystal 보고서를 시작, JPEG로 PNG 이미지를 변환 할 수 있습니다.

Error

난 그냥 내 인생은 왜 알아낼 수 없습니다 위해 대신 나는 다음과 같은 예외를 얻을. 그리고 그 진짜 이름이 아니다 추측

답변

1
SigName = "SELECT Signature FROM vw_Report_VehicleCheckFTA WHERE VCID = " & CStr(lRiskAssessID) ' lRiskAssessID is 3772 I guess 
    SigNameNew = SigName.PadLeft(SigName.Length - 4) 'SignameNew will become "SELECT Signature FROM vw_Report_VehicleCheckFTA WHERE VCID = 3772", PadLeft will actually do nothing at all 

    ConvertImage(SigName, _ 
       System.Drawing.Imaging.ImageFormat.Jpeg, _ 
       SigNameNew & ".jpeg") 

변환 이미지를 파일 이름으로 불린다 "VCID = 3772이 WHERE vw_Report_VehicleCheckFTA로부터 서명을 선택하십시오." 정말 누구인지 바보

+0

OMG)

당신은 당신의 데이터베이스에서 데이터를 얻는 방법에 살펴 보셔야합니다, 당신은 단지 그것을 얻기 위해 공중에 약간의 문자열을 던질 수 없습니다. 금요일이라고 말할 수 없습니까 ?? 감사! –

+1

문제 없음, TGIF; D –