eprime slide 调用位置坐标

Question

要同时呈现三张不同的图片，图片的位置随机，要怎么实现用list调用不同位置坐标呢
我调用list之后就变成居中了，想知道这是为啥

Answer 1

🕒上午好，题主！目前：🟢[在线]
📢参考GPT-4o mini 模型、由清水白石008整理提供！
📣今日金句：“天下之事常成于困约，而败于奢靡。” —— 陆游

在 E-Prime 中使用 Slide 对象同时呈现三张不同的图片，并随机化它们的位置，可以通过以下步骤实现：

1. 创建 Slide 对象

首先，创建一个 Slide 对象，并在其中添加三个 SlideImage 子对象。

2. 设置位置坐标

为每个 SlideImage 子对象设置初始位置。你可以在属性窗口中手动设置这些位置，或者通过脚本动态设置。

3. 使用 List 调用位置坐标

创建一个 List 对象，包含不同的坐标位置。然后在 Slide 的属性中调用这些坐标。

示例代码

以下是一个示例代码，演示如何使用 List 调用不同位置坐标，并随机化图片位置：

E-Prime 脚本

' 在 List 对象中定义位置坐标
List1.AddColumn "XPos"
List1.AddColumn "YPos"
List1.AddRow
List1.SetAttrib "XPos", "100"
List1.SetAttrib "YPos", "200"
List1.AddRow
List1.SetAttrib "XPos", "300"
List1.SetAttrib "YPos", "400"
List1.AddRow
List1.SetAttrib "XPos", "500"
List1.SetAttrib "YPos", "600"

' 在 Slide 对象中调用 List 中的坐标
Slide1.SlideImage1.X = List1.GetAttrib("XPos")
Slide1.SlideImage1.Y = List1.GetAttrib("YPos")
Slide1.SlideImage2.X = List1.GetAttrib("XPos")
Slide1.SlideImage2.Y = List1.GetAttrib("YPos")
Slide1.SlideImage3.X = List1.GetAttrib("XPos")
Slide1.SlideImage3.Y = List1.GetAttrib("YPos")

4. 随机化位置

为了随机化图片的位置，可以在脚本中使用随机函数来选择 List 中的不同行：

Dim randIndex As Integer
randIndex = CInt(Rnd() * (List1.GetNumRows() - 1)) + 1

Slide1.SlideImage1.X = List1.GetAttrib("XPos", randIndex)
Slide1.SlideImage1.Y = List1.GetAttrib("YPos", randIndex)
Slide1.SlideImage2.X = List1.GetAttrib("XPos", randIndex)
Slide1.SlideImage2.Y = List1.GetAttrib("YPos", randIndex)
Slide1.SlideImage3.X = List1.GetAttrib("XPos", randIndex)
Slide1.SlideImage3.Y = List1.GetAttrib("YPos", randIndex)

5. 检查居中问题

如果调用 List 后图片变成居中，可能是因为没有正确设置 SlideImage 的位置属性。确保在 SlideImage 的属性窗口中取消居中选项，并使用脚本设置具体的坐标。

参考资料

• E-Prime Tutorial #3: Slides and Advanced Properties ¹
• 轻松学习E-Prime(十一)：Slide的应用 ²

希望这些步骤和示例代码能帮助你解决问题！如果你有更多具体问题或需要进一步的帮助，随时告诉我哦！😊