插入图片的时同时插入描述图片的文字

通过程序向TextControl中插入图片，有些图片可能有相应的图片描述， 图片和文字都来自于数据库。
现在插入图片是根据配置好的图片坐标插入到控件的相应位置，现在要插入文字，要求显示在图片下方。

现在的做法是插入一个TextField到控件，插入的时候设置InputPosition,这个也可以从配置读取。现在的问题是这个配置无效，无论横坐标设置多大，始终显示在最左边。
我的测试代码如下：

1. 
   
2. TextField textField = new TextField("赵志敬");
   
3. _textControl.InputPosition = new InputPosition(new System.Drawing.Point(config.Left, config.Top + (int)config.Height));
   
4. _textControl.TextFields.Add(textField);
   

复制代码

请问要怎么插入到配置的坐标下，或者是否可以别的方案实现这个需求？

回复 1楼mindrayguowei的帖子

TX 文字是基于文本流的，例如：文本只有 1 个字符，我们就无法插入 textfiled 到第10个字符的位置。

所以，您的这个case需要通过插入Table或者空格占位。

能给出demo代码吗？

回复 3楼mindrayguowei的帖子

这个demo制作起来可能比较复杂，不知道现在您能否提供些现在的实现代码，例如插入图片和计算文字插入位置的代码。我们在这基础上协助调查。

2. for (int i = 0; i < _imagePathList.Count; i++)
3.         {
4.             string fileName = _imagePathList[i];
5.             ReportImageConfig config = reportImageConfigList[i];
8.             Image image = new Image(fileName, 5);
9.             image.SaveMode = ImageSaveMode.SaveAsData;
10.             System.Drawing.Image img = System.Drawing.Image.FromFile(fileName);
12.             int vScaleFactor = Convert.ToInt32(config.Height / (img.Height * TwipsPerPixel) * 100);
13.             int hScaleFactor = Convert.ToInt32(config.Width / (img.Width * TwipsPerPixel) * 100);
15.             img.Dispose();
16.             img = null;
18.             image.HorizontalScaling = hScaleFactor;
19.             image.VerticalScaling = vScaleFactor;
21.             _textControl.Images.Add(image, config.Location, ImageInsertionMode.DisplaceCompleteLines);
24.             //TextField textField = new TextField("赵志敬");
25.             //_textControl.InputPosition = new InputPosition(new System.Drawing.Point(config.Left, config.Top + (int)config.Height));
26.             //_textControl.TextFields.Add(textField);
28.         }
30.         class ReportImageConfig
31.         {
32.             private string _field = string.Empty;
33.             private int _id = 0;
34.             private int _left = 0;
35.             private int _top = 0;
36.             private decimal _width = 0;
37.             private decimal _height = 0;
39.             private System.Drawing.Point _location = new System.Drawing.Point();
41.             public ReportImageConfig(int Id, int Left, int Top, decimal Width, decimal Height)
42.             {
43.                 _id = Id;
44.                 _left = Left;
45.                 _top = Top;
46.                 _width = Width;
47.                 _height = Height;
49.                 _location.X = Left;
50.                 _location.Y = _top;
51.             }
53.             public ReportImageConfig(string Field, int Left, int Top, decimal Width, decimal Height)
54.             {
55.                 _field = Field;
56.                 _left = Left;
57.                 _top = Top;
58.                 _width = Width;
59.                 _height = Height;
61.                 _location.X = Left;
62.                 _location.Y = _top;
63.             }
65.             public string Field
66.             {
67.                 get { return _field; }
68.             }
70.             public int Id
71.             {
72.                 get { return _id; }
73.             }
75.             public int Left
76.             {
77.                 get { return _left; }
78.             }
80.             public int Top
81.             {
82.                 get { return _top; }
83.             }
85.             public decimal Width
86.             {
87.                 get { return _width; }
88.             }
90.             public decimal Height
91.             {
92.                 get { return _height; }
93.             }
95.             public System.Drawing.Point Location
96.             {
97.                 get { return _location; }
98.             }
99.         }

复制代码

回复 5楼mindrayguowei的帖子

这个问题需要使用 Table 进行占位，我做了一个简单demo供您参考：
19217.zip (28.27 KB, 下载次数: 297)

2015-10-29 16:25 上传

点击文件名下载附件

效果图：
attachimg]18460[/attach]

不需要显示 table 边框隐藏即可。

Sub InsertImage(name As String)

    Dim sel_start As Integer
    Dim sel_end As Integer
    Dim image_id As Long
    Dim field_id As Long

    sel_start = Form1.TXTextControl1.selstart

    image_id = Form1.TXTextControl1.ObjectInsertAsChar(0, name, -1,
    100, 100, 0, 0)
    If image_id = 0 Then Exit Sub

    sel_end = Form1.TXTextControl1.selstart

    ' Select the image
    Form1.TXTextControl1.selstart = sel_start
    Form1.TXTextControl1.SelLength = sel_end - sel_start

    ' Put the image into a field and store the image's ID in the field
    If Form1.TXTextControl1.FieldInsert("赵志敬") Then
        field_id = Form1.TXTextControl1.FieldCurrent
        Form1.TXTextControl1.FieldData(field_id) = image_id
        Form1.TXTextControl1.FieldChangeable = False

        ' Finally store the path name in a global variable
        ImagePaths(field_id) = name
    Else
        ' Something's wrong, delete the inserted image
        Form1.TXTextControl1.ObjectDelete (image_id)
    End If

End Sub



这个是TX范例，应该也是可以的

楼上这个是ActiveX控件吧，我不是这个控件，没这些方法

回复 6楼iceman的帖子

我们讨论了以下，用表格的方式不可行。就没有别的办法了 吗？ 这应该是比较基本的功能啊

回复 8楼mindrayguowei的帖子

是ActiveX控件