none
VB.NET REPORT RDLC의 이미지 변경 방법 요청 RRS feed

  • 질문

  • 항상 읽어주시는 분들께 감사 합니다

    보고서
      데이타의 매개변수 AA1
      데이타의 이미지 Image A,Image B,Image C

    RDLC의
      매개변수 AA1=A 이면 Image1에 Image A
      매개변수 AA1=B 이면 Image1에 Image B
      매개변수 AA1=C 이면 Image1에 Image C

    Dim params(1) As Microsoft.Reporting.WinForms.ReportParameter
        params(0) = New Microsoft.Reporting.WinForms.ReportParameter("AA1", AA1)

      '=================================================================

       IF params(0)= AA1=A THEN
             params(1) = New Microsoft.Reporting.WinForms.ReportParameter("Image1", Image A)
       ELSE IF params(0)= AA1=B THEN
             params(1) = New Microsoft.Reporting.WinForms.ReportParameter("Image1", Image B)
       ELSE
             params(1) = New Microsoft.Reporting.WinForms.ReportParameter("Image1", Image C)
       END IF

    이럻게 하고 싶은 생각인데 안되내요 어떻게 하면 될까요

    '===================================================================

     Me.ReportViewer1.LocalReport.SetParameters(params)
     Me.ReportViewer1.RefreshReport()

    2014년 12월 2일 화요일 오전 1:46

답변

  • .rdlc[디자인]

    매개 변수 -> 이미지(변수 이름) 만들기

    이미지 속성->이미지 원본 선택= 외부

    도구에서 이미지 box 만들기

    image1.sizing=fit

    image1.source=external

    image1.value=parameters!이미지.value

    '그림 넣기

    .vb

    Dim r(0) As Microsoft.Reporting.WinForms.ReportParameter

    If FAN_TYPE.ToString = "Air Foil" Then
        r(0) = New Microsoft.Reporting.WinForms.ReportParameter("이미지", "file:\" & "엑셀\1_AIRFOIL_DS.jpg", True)
      Else
        r(0) = New Microsoft.Reporting.WinForms.ReportParameter("이미지", "file:\" & "엑셀\1_SIROCCO_DS.jpg", True)
    End If

    Me.ReportViewer1.LocalReport.EnableExternalImages = True '이미지 올려도 됨
    Me.ReportViewer1.LocalReport.SetParameters(r(0))              '이미지 올림

    하면 됩니다.

    유튜브에 동영상을 보고 했습니다

    How to add an image in RDLC Report 로 검색 했습니다.

    • 답변으로 표시됨 박희철 2014년 12월 8일 월요일 오전 7:58
    2014년 12월 8일 월요일 오전 7:58