A powerful WinForms UserControl for displaying and interacting with Tiro.health FHIR Questionnaires. Built with WebView2 and SMART web messaging integration.
Features
FHIR Questionnaire Support: Display and interact with FHIR Questionnaires
SMART on FHIR Integration: Built-in support for SMART Web messaging protocols
WebView2 Powered: Modern web rendering with Microsoft WebView2
Async/Await Support: Full async support for modern .NET applications
Event-Driven Architecture: Rich event system for form submissions and interactions
Embedded Web Assets: Self-contained with embedded HTML/JS resources
Timeout Handling: Robust timeout and error handling for WebView2 operations
Find TiroFormViewer in the Toolbox under "Tiro.Health.WinForms.FormViewer Components"
Drag and drop it onto your form
Programmatic Creation
Imports Tiro.Health.Winforms.FormViewer.Net48
Imports Hl7.Fhir.Model
Public Class Form1
Private tiroFormViewer As TiroFormViewer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Create and configure the FormViewer
tiroFormViewer = New TiroFormViewer()
tiroFormViewer.Dock = DockStyle.Fill
' Subscribe to events
AddHandler tiroFormViewer.FormSubmitted, AddressOf OnFormSubmitted
' Add to form
Me.Controls.Add(tiroFormViewer)
End Sub
Private Sub OnFormSubmitted(sender As Object, e As FormSubmittedEventArgs)
' Handle form submission
Dim response As QuestionnaireResponse = e.Response
Dim outcome As OperationOutcome = e.Outcome
' Process the submitted form data
MessageBox.Show($"Form submitted with status: {response.Status}")
End Sub
End Class
2. Display a Questionnaire
Private Async Sub LoadQuestionnaire()
Try
' Create FHIR resources
Dim patient = New Patient() With {
.Id = "patient-123"
}
patient.Name.Add(New HumanName() With {
.Family = "Doe",
.Given = {"John"}
})
Dim encounter = New Encounter() With {
.Id = "encounter-456",
.Status = EncounterStatus.InProgress
}
Dim practitioner = New Practitioner() With {
.Id = "practitioner-789"
}
' Set the questionnaire context
Await tiroFormViewer.SetContextAsync(
"http://example.com/questionnaire/patient-intake",
patient,
encounter,
practitioner
)
Catch ex As Exception
MessageBox.Show($"Error loading questionnaire: {ex.Message}")
End Try
End Sub
3. Request Form Submission
Private Async Sub RequestFormSubmission()
Try
Await tiroFormViewer.SendFormRequestSubmitAsync()
Catch ex As Exception
MessageBox.Show($"Error requesting form submission: {ex.Message}")
End Try
End Sub
