计算行高,如
Dim str As String = "abc123你我他款窦娥宽松iuksdf卡上的佛ikoisdf"Dim fnt As new font("宋体", 9)Dim g = basemainform.createGraphicsDim size = g.MeasureString(str, fnt, 50) '宽度50msgbox(size.height)